A.Private Sub Form_MouseDown(Button AS Intege, _Shift As Integer, X As Single, Y As Single) If Button=1 And Button=2 ThenP opupMenu a1 End If End Sub
B.Private Sub Form MouseDown(Button As Integeg_Shift As Integer, X As Single, Y As Single) PopupMenu a1 End Sub
C.Private Sub Form MouseDown(Button As Intege_Shift As Integeg, X As Single, Y As Single) If Button=1 Then PopupMenu a1 End If End Sub
D.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single) If Button=2 Then PopupMenu a1 End If End sub