Help!! GetAsyncKeyState ( How to get Mouse UP or Down )

[Guest_imported]

Private Sub Timer2_Timer()

If GetAsyncKeyState(How to get mouse up or down ???? )) Then

msgbox "Left button was pressed Right now you just released it thank you "

End If

end sub

'how to ?? ?????

 

[Guest_imported]

'Oppppps sorry after posting , this question suddenly i made it up .. sorry to ask
its solved now.. here take a look -:::

Private Sub Timer2_Timer()
If Not GetAsyncKeyState(0) Then
text1.text = "Button released"
End If

If GetAsyncKeyState(vbLeftButton) Then
text1.text = "left button pushed"
End If
end sub