Dim ts_neu As New ToolStrip()
        'Button 1
        Dim bt As New ToolStripButton
 
        AddHandler bt.Click, AddressOf Show_Child
 
        bt.Text = qry_FormName.ToString
        FormName = FormName ' Hier ist das Problem
        bt.Tag = FormName

 Sub Show_Child(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Form As System.Windows.Forms.Form
 
        Form = sender.tag
 
        Form.MdiParent = Me
        Form.VerticalScroll.Visible = True
        Form.HorizontalScroll.Visible = True
        Form.Text = sender.text.ToString 'sender.tag.ToString
        Form.Show()
    End Sub