Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim parameter As Integer Do While ( 処理続行条件 = True ) Application.DoEvents() parameter = CInt(TextBox1.Text) ・・・ 'parameter を使った処理 Loop End Sub
というように、TextBox1からパラメータを入力してループ処理に反映させるコードを書き、 デバッグモードでビルドエラーも出ずに一見正常に動作する所まできました。 ところがDo While ループが回っている最中にForm1の右上の「X」ボタンをクリックして強制終了させると、 parameter = CInt(TextBox1.Text) の行のところで
