ايران ويج

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

سلام این کار از 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 رو بدست بیار