Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_
X As Single, Y As Single)
If Button=2 Then PopupMenu Bt, 2
End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt
End Suh Private Sub Form MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt,0
End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt
End Sub