Vb.net 使用模块将表单相互连接

我是编程新手，在VB.net中遇到了一个问题

对于一个包含两个表单的项目，我想使用一个模块，该模块可以自动加载表单中的菜单（toolstrip）（类似于web develop中的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

两种表格中的代码

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

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

我不知道这是否重要，但对于我的大多数表单，我都使用数据集。 有人能帮我吗？我将感谢你一千次D