A) Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single, Y As Single) If Button=2 Then PopupMenu a1,2 End Sub B) Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single, Y As Single) PopupMenu a1,0 End Sub C) Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single, Y As Single) PopupMenu a1,2 End Sub D) Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single, Y As Single) If(Button=vbLetfButton) Or(Button=vbRightButton) Then PopupMenu a1 End Sub