Private Sub Start_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
        Dim ts_neu As New ToolStrip()
 
        'Button 1
        Dim bt1 As New ToolStripButton
        AddHandler bt1.Click, AddressOf Show_Child
        bt1.Text = "XML Export"
        bt1.Tag = "XML_Export"
 
        'Button 2
        Dim bt2 As New ToolStripButton
        AddHandler bt2.Click, AddressOf Show_Child
        bt2.Text = "CSV Import"
        bt2.Tag = "CSVImport"
 
        'ts_neu.Anchor = AnchorStyles.Left 
        ts_neu.Dock = DockStyle.Top
 
        'Button hinzufügen
        ts_neu.Items.Add(bt1)
        ts_neu.Items.Add(bt2)
 
        ' Add the ToolStrip control to the Controls collection.
        Me.Controls.Add(ts_neu)
 
    End Sub
 
    Sub Show_Child(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim ChildForm As System.Windows.Forms.Form = CType(sender.Tag, _
          Windows.Forms.Form)
 
        ChildForm.MdiParent = Me
        ChildForm.VerticalScroll.Visible = True
        ChildForm.HorizontalScroll.Visible = True
        ChildForm.Text = sender.text.ToString 'sender.tag.ToString
        ChildForm.Show()
 
    End Sub