Private Sub TreeView1_MouseDown(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  ' Node-Objekt ermitteln
  Dim oNode As Node
 
  Set oNode = TreeView1.HitTest(x, y)
  If Not oNode Is Nothing Then
    ' PopUp-Menü...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de