vb.net - モジュールを使用してフォームを相互に接続する

Question

私はプログラミングが初めてで、VB.net に問題があります。

いくつかのフォームを含むプロジェクトでは、メニュー (ツールストリップ) をフォーム (Web 開発における CSS の一種) に自動的にロードするモジュールを使用したいと考えていました。これは初めて機能しますが、アクションを繰り返すとメニューが消えます。(例: ドライバー > タクシー > ドライバー)。

エラーは、フォームを (再) ロードしたときだと思います。

これが私のコードです

モジュールコード

宣言：

Public tsbdrivers, tsbTaxi As New ToolStripButton
Public tsMenu As New ToolStrip

tsMenu のプロパティ

With tsMenu
        .Dock = DockStyle.Left
        .Text = "Navigatie, klik op knoppen om iets raad te plegen"
        'toolstrip bevolkeren
        .Items.Add(tsbchauffeurs)
        .Items.Add(tsbTaxi)
    End With
    'probs drivers
    With tsbdrivers
        .DisplayStyle = ToolStripItemDisplayStyle.Image
        .Image = Taxi2014.My.Resources.Resources.Chauffeurs
        .ImageScaling = ToolStripItemImageScaling.None
        .Text = "Raadpleeg uw chauffeurs en/of werknemers."
        AddHandler .Click, AddressOf DriverOpen
    End With
    'probs Taxi
    With tsbTaxi
        .DisplayStyle = ToolStripItemDisplayStyle.Image
        .Image = Taxi2014.My.Resources.Resources.Wagens
        .ImageScaling = ToolStripItemImageScaling.None
        .Text = "Raadpleeg uw wagens."
        AddHandler .Click, AddressOf TaxiOpen
    End With
End Sub

(画像はインポートイメージです)

公開サブ

Public Sub DriverOpen()
    HideAll()
    Frmdriver.Show()
End Sub

Public Sub TaxiOpen()
    HideAll()
    Frmdriver.Show()
End Sub

 Public Sub HideAll()
    FrmMenu.Hide()
    FrmDrivers.Hide()
    frmTaxi.Hide()
End Sub

2 形式のコード

Private Sub frmTaxi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'Menu toevoegen

    Afbeeldingeninladentoolstrips()
    Me.Controls.Add(tsMenu)
End sub

それが問題かどうかはわかりませんが、ほとんどのフォームでデータセットを使用しています。誰でも私を助けてもらえますか？千回もありがとうございます。:D