Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single) If Button=2 Then PopupMenu al,2 End Sub
B.
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single PopupMenu al,0 End Sub
C.
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single PopupMenu al End Sub
D.
Private Sub Form. MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single If(Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu al End Sub
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_Mouse Down(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=VbLeftBuaon)Or(Button=VbRighButton)Then PopupMenu Bs End Sub