Private Sub Form_Click() Print "Click"; End Sub Private Sub Form_MouseDownButtonAs Integer,ShiftAs Integer,XAs Single,YAs Single) Print "Donw" End Sub Private Sub Form_MouseUpButtonAs Integer,ShiftAs Integer,XAs Single,YAs single) Print "Up" End Sub A.DownUpClick B.ClickDownUp C.DownClickUp D.UpDownclick