It will tell you whether the mouse button is UP or DOWN whether mouse is in or out of ur vb project.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1
Private Sub Timer1_Timer()
Dim tX As Long
tX = GetAsyncKeyState(VK_LBUTTON)
If tX And 32768 Then
Label1.Caption = "Button is down"
Else
Label1.Caption = "Button is up"
End If
End Sub