A.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