APrivate Sub Form_MouseDown(Button As Integer ,Shift As Integer ,X As Si ngle ,Y As Si ngle) If Button =2Then Popup Menu Bs ,2
End Sub
BPrivate Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) Popup Menu Bs
End Sub
CPrivate Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) Popup Menu Bs ,0
End Sub
DPrivate Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) If (Button =vbLeftButton)Or (Button =vbRightButton)Then Popup Menu Bs
End Sub