A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Singl If Button=2 Then PopupMenu Bs,2 End Sub B.Private Sub Form_Mouse Down(Button As Integer,Shift As Integer, X As Single,Y As Singl PopupMenu Bs End Sub C.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Singl PopupMenu Bs,0 End Sub D.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Singl If(Button=VbLeftBuaoOr(Button=VbRighButtoThen PopupMenu Bs End Sub