Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.TreeViewEventArgs) _
                                      Handles TreeView1.AfterSelect
        Select Case e.Node.Index
 
            Case 0 'nicht belegt
 
            Case 1
                e.Node.Expand()
                MessageBox.Show(e.Node.Index)
 
                'Case 2
                '    e.Node.Expand()
                '    MessageBox.Show("Der Index ist " & e.Node.Index)
 
                'Case 3
                '    MessageBox.Show("Der Index ist " & e.Node.Index)
 
        End Select
    End Sub

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber