>>749
VBの機能ではたぶん無理。

つ【GetAsyncKeyState】