Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

If GetAsyncKeyState(37) <> 0 Then
MsgBox "←"
End If.........

ダメだ今日はねもい!寝る!仕様は固まった。
キーの割当から明日作ってく