hello


put the flag to 2


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

If Button = 2 Then

PopupMenu MyMenuName , 2, X, Y





End If


End Sub