>>855
目的がよく判らんけど、こんな感じ?

SetHotKey(VK_ENTER,,"a")
While True
Sleep(1)
Wend

Procedure a()
Fend