無限ループ中にある任意のキーを押すと抜けるコードを作りたいのですが・・・(VB6です)

無限ループを動作中にあるキー（例えば[Ctrl]+[c]）を押すと、そのプログラムを抜けて終了するコードを作りたいのですが、どなたかご教授いただけませんでしょうか？

No.1 ベストアンサー 回答者： how-do-you-do 回答日時： 2005/03/25 18:44

Private blnEscape As Boolean

Private Sub Command1_Click()

　　blnEscape = False

　　Do While Not blnEscape
　　　　Me.Label1.Caption = Format(Now, "ss")
　　　　DoEvents
　　Loop

　　MsgBox "ESCAPE"
　　
End Sub

Private Sub Command2_Click()

　　blnEscape = True
　　
End Sub

この回答へのお礼

ありがとうございました。
当方でも調べた結果、以下のようにすれば実現できそうです。

If GetAsyncKeyState(vbKeySpace) <> 0 Then
　End
End If

お礼日時：2005/03/25 19:06