A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu Bs,2 End Sub B.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) PopupMenu Bs End Sub C.Private Sub Form—MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) PopupMenu Bs,0 End Sub D.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If(Button=vbLeftButton)0r(Button=vbRightButton)Then PopupMenu Bs End Sub