Public Sub tvTreeView_MouseDown(ByVal Button As Integer, ByVal Shift As _
  Integer, ByVal X As Single, ByVal Y As Single)
 
    Dim nodX As Node
 
    Set nodX = tvTreeView.HitTest(X, Y)
 
    If Not nodX Is Nothing Then
       If Button = vbLeftButton Then
            NodeLeftClick nodX                'selbst geschriebene Funktion
        ElseIf Button = vbRightButton Then
            NodeRightClick nodX               'selbst geschriebene Funktion
        End If
    Else
        If Button = vbRightButton Then
            'Mach was anderes
        End If
    End If
 
End Sub

Public Sub NodeLeftClick(ByVal vNode As Node)
    Dim strKey As String
 
    strKey = vNode.Key
    '.......
end sub

Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
End Sub

Gruß
Dirk

--
?Get it right the first time