Dim y As Integer
 
Private Sub Command1_Click()
y = y + 1
 Set nodX = TreeView1.Nodes.Add(1, tvwChild, , " " & Text1.Text)
 List1.AddItem Text2.Text
 nodX.EnsureVisible  ' Alle Knoten anzeigen.
End Sub
 
Private Sub Form_Load()
    Dim nodX As Node
    Dim i As Integer
    TreeView1.LabelEdit = tvwManual 
    Set nodX = TreeView1.Nodes.Add(, , , "VERWALTUNG")   
 End Sub
 
 '###############HIER INDEX ANZEIGEN ? 
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Text1.Text = Node
text2.text=HIER LISTINDEX VON KNOTEN ANZEIGEN NUR WIE ??????????????
End Sub