谁帮我把我这个鼠标问题解决我就把100分给谁！我保证！

Question

问题是这样的，在屏幕任何地方同时按下（是按下，不是单击）鼠标左右键（当然只是左键或右键也可以），在text1.text中就显示“按下鼠标”，放开鼠标后显示“放开鼠标”，前提是屏幕任何地方，不一定是窗体上！
  我知道要用到hook，但我不会，还请大家帮忙！

Answer 1

不一定要用hook，但是hook很准，如果不是特殊情况，你可以试试这个：
加一个Timer，Interval时间间隔设成小于半秒比如300
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim x As Long
x = GetAsyncKeyState(1) '左键
If x = -32767 Then
 Debug.Print "左键"
End Ifx = GetAsyncKeyState(2) '右键
If x = -32767 Then
 Debug.Print "右键"
End If
End Sub

Answer 2

至于用hook实现，你可以看这个：
http://www.sijiqing.com/vbgood/forum/forum_posts.asp?TID=13586&PN=1