Dim Flag as Boolean
Flag = True
Do While Flag = True
If (GetAsyncKeyState(vbKeyA)) <> 0 Then
　　　　　　　　'ここに何らかの処理をして、ある条件でFlag=falseにする
DoEvents
Loop

この処理でキーイベントを拾った後、何らかの処理をしたいのですが
このコード以外に何か良い拾い方はありませんか？
初めは最小化やタスクトレイに入っていて、キーを押すと反応する様にしたいのです。