Do〜Loopを抜けるには。 (ID:106081)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 開始釦を押下すると、Option1＝Trueになるまで ループが回るようにしているのですが、 ここで、Option1をTrueにしないで、終了釦を押下して、 Formを閉じても、ループは回ったままなのです。 Option1をTrueにしないで、ループを抜ける方法を教えてください。 下記がプログラムです。 Private Sub Command1_Click() '開始釦 Do DoEvents Loop Until Option1 = True End Sub Private Sub Command2_Click() '終了釦 Unload Form1 End Sub