Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim PopY As Single
Dim PopX As Single
Dim i As Long
Dim a As Long
 Select Case KeyCode
   Case 93
     With TreeView1
       a = 0
       For i = 1 To .SelectedItem.Index
         If .Nodes(i).Visible = True Then
           a = a + 1
         End If
       Next i
 
         PopX = .Left + Me.TextWidth(.SelectedItem.Text) + 100
         PopY = .Top + (Me.TextHeight(.SelectedItem.Text) + 30) * (a)
 
         Me.PopupMenu mnuDatei, , PopX, PopY
     End With
 End Select
End Sub

Gru? aus dem Norden
manyki