Доброго Вам времени суток
Уважаемые господа

я создал PopUp меню

Появляется

Private Sub tabletech_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu glv.mnuMyPopUp, 0, X, Y
End If
End Sub

Исчезает

Private Sub tabletech_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
glv.mnuMyPopUp.Visible = False
End If
End Sub

все работает

а как мне реализовать вот это

Private Sub tabletech_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
glv.mnuMyPopUp.Visible = False 'исчезает
Me.PopupMenu glv.mnuMyPopUp, 0, X, Y 'появляется
End If
End Sub

чтобы не кликать то левую то правую клавишу мыши
а сразу все исполнять на правой

С Уважением и Благодарностью
Намик