Как отследить....

[Мика]

Как иожно отследить нажатие мыши или клавы вне формы.Т.е если у меня форма свернута в трей, и я кликнул мышью (по рабочему столу), то моя прога воспринимала.

[John_mc]

Можно так:

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

Const VK_ESCAPE = &H1B

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_ESCAPE) Then MsgBox "Esc"
End

[Мика]

Спасибо!!!!!
А как отследить нажатие мыши?

[Mirus]

Вместо VK_ESCAPE поставь VK_MBUTTON
Const VK_MBUTTON = &H4

[Мика]

Спасибо вам всем!!!
А до мышки я сам иотом допер, но всеравно спасибо!