A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Singl If Button=2 Then PopupMenu Bt, 2 End Sub B.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Singl PopupMenu Bt End Suh C.Private Sub Form MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Singl PopupMenu Bt,0 End Sub D.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Singl If (Button=vbLeftButto Or ( Button=vbRightButto Then PopupMenu Bt End Sub