GetAsyncKeyState() Problem...

[Arie]

Hi, Guys!

How can I set false all the GetAsyncKeyState() keys?
Sometimes I get some True values...
I want something like reseting all keys...

Thank you,
Arie. (mag.up.co.il)

[Aaron Young]

You can't reset the "GetAsyncKeystate()" value, (although I suppose you could use the "SetKeyboardState()" API, but it's unnecessary.)

If you're just concerned with the inital spurt of key state triggers you can get starting an application, then just do something like this when your application starts:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Dim lKey As Long
Do While lKey < 256
For lKey = 0 To 255
If GetAsyncKeyState(lKey) Then Exit For
Next
DoEvents
Loop
End Sub