Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  Dim oNode As Node
  Set oNode = TreeView1.HitTest(x, y)
  If Not oNode Is Nothing Then
    Set TreeView1.SelectedNode = TreeView1.Nodes(oNode.Index)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de