Code:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
das kommt in ein modul rein
dann halt:
if getasynckeystate then
....
else
....
end if