Private Sub TreeView2_AfterExpand(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.TreeViewEventArgs) Handles TreeView2.AfterExpand
        e.Node.ImageIndex = 1
    End Sub
    Private Sub TreeView2_AfterCollapse(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView2.AfterCollapse
        e.Node.ImageIndex = 0
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus