Private Sub TreeView1_BeforeCollapse(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
  Handles TreeView1.BeforeCollapse
 
  e.Node.SelectedImageIndex = 0
  e.Node.ImageIndex = 0
End Sub

Private Sub TreeView1_BeforeExpand(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
  Handles TreeView1.BeforeExpand
 
  If e.Node.GetNodeCount(True) Then
    e.Node.SelectedImageIndex = 2
    e.Node.ImageIndex = 2
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de