Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
 
        TreeView1.Nodes.Add("allgemein", "Form: Allgemein")
        TreeView1.Nodes.Add("roboter", "Form: Roboter")
    End Sub
 
    Private Sub TreeView1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TreeView1.DoubleClick
        If Not TreeView1.SelectedNode Is Nothing Then
            Select Case TreeView1.SelectedNode.Name
                Case "allgemein"
                    Using frmAllgemein As New Form
                        frmAllgemein.Text = "Allgemein"
                        frmAllgemein.ShowDialog(Me)
                    End Using
                Case "roboter"
                    Using frmRoboter As New Form
                        frmRoboter.Text = "Roboter"
                        frmRoboter.ShowDialog(Me)
                    End Using
            End Select
        End If
    End Sub