Private Sub treMenu_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim i As Integer
    
    If Button = 2 Then
        With treMenu
            For i = 1 To .Nodes.Count
                If .Nodes(i).Selected  Then
                    PopupMenu Menu
                    Exit For
                End If
            Next i
        End With
    End IfEnd Sub