popup menù era:(Tasto DX)

[robertoz]

oppure anche così

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu pp


End Sub