mouse click در صفحه

[setroyd]

یه کد میخام که بفهمم طرف در صفحه ی نمایش و خارج از فرم mouse down یا up کرده و بهم پیقام بده مثل mouse up ya down فرم خود vb من قبلا داشتم کدشو که با sendmessage نوشته شده بود و خیلی ساده بود اگر کمکم کنید ممنون میشم

[Shayani]

سلام این کار از API صفحه کلید بر میآد اما با یه پولتیک !!!

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
Integer

Function LeftButton() As Boolean
LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000)
End Function

Function RightButton() As Boolean
RightButton = (GetAsyncKeyState(vbKeyRButton) And &H8000)
End Function

Function MiddleButton() As Boolean
MiddleButton = (GetAsyncKeyState(vbKeyMButton) And &H8000)
End Function

یه Timer بزار و توش با If کلیدای mouse رو بدست بیار