El API funciona con un timer quisas con un interval de 250 mas o menos, bueno lo que importa es que retorna -32767 si se presiono alguna tecla el uso es más o menos así:
Código VB:
Ver originalPublic i As Integer = 82
If GetAsyncKeyState(i) = -32767 Then
''Codigo si se presiona la tecla con el ASCII 82 que es R
End If
Ese codigo va en el sub timer.
Soló le debes pasar el al API el ASCII de la tecla que deseas saber si esta siendo pulsada si se presiona retorna -32767 sino retorna 0.