questo e' il codice intero

codice:
Private Sub trwBuddys_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        Set HitTestMouse = trwBuddys.HitTest(x, y)
        If Not IsNull(HitTestMouse) Then
            PopupMenu mnuBuddy
        End If
    End If
End Sub