>>305
APIのGetAsyncKeyState。
VB5でも使えるはず。