A.Private Sub Form_MouseDownButtonAs Integer,ShiftAs Integer,XAs Single,YAs Single) IfButton=2 Then PopupMenuBs,2 End Sub B.Private Sub Form_MouseDownButtonAs Integer,ShiftAs Integer,XAs Single,YAs Single) PopupMenuBs End Sub C.Private Sub Form—MouseDownButtonAs Integer,ShiftAs Integer,XAs Single,YAs Single) PopupMenuBs,0 End Sub D.Private Sub Form_MouseDownButtonAs Integer,ShiftAs Integer,XAs Single,YAs Single) IfButton=vbLeftButton)0rButton=vbRightButton)Then PopupMenuBs End Sub