VScodeでのDo-Loop文を使うと画面が固まります

Question

前提・実現したいこと

Visual Studio 2019で簡単なボタン操作を行おうとしています。
デザインにはrunとstopボタンを配置して、コード実行（mainのload）すると最初はrunだけ表示。
runを押すとstopが表示され、次はstopを押すまで、その状態を保持する。
stopを押すとrunが表示される。
上記を繰り返す状態を実現したいです。

VScodeを操作するのは初めてです。
VB6は少し触ったことがあるのですが、環境が古いので今回VScode2019に移植しようとして、ついでに上記の機能を追加しようとしたら思ったような動作をしてくれず困っています。

多分、初歩的なことなのだと思いますが、ご教授のほど、よろしくお願いします。

発生している問題・エラーメッセージ

作成したのは図の左側の「run」ボタンと「stop」ボタンです。
下記、コードを開始すると画面が添付の右側の図になります。
ここで「run」を押すと「stop」ボタンが現れるようにしたつもりなのですが、「stop」ボタンは現れず「run」が表示されたまま、デザインが固まってしまいます。
![イメージ説明](5f59f5a13c17973d9a32e8fd40f0dbd9.png)

該当のソースコード

Option Compare Text
Imports Quobject.EngineIoClientDotNet.Modules

Public Class main
    Private Property measureEnd As Integer

    Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        measureEnd = 0 '強制終了フラグ　0：通常動作　-1：強制終了
    End Sub

    Public Sub run_Click(sender As Object, e As EventArgs) Handles run.Click
        Do Until (measureEnd = -1)
            run.Visible = False
            run_stop.Visible = True
        Loop

        run.Visible = True
        run_stop.Visible = False
    End Sub

    Private Sub run_stop_Click_1(sender As Object, e As EventArgs) Handles run_stop.Click
        measureEnd = -1
    End Sub

End Class

試したこと

Doのところにブレイクポイントを作成して、1行ずつ実行したところ、Do～Loopを繰り返すことを確認しました。
run_stopをクリックしていないので、measureEndが-1にならないので、この現象は理解します。

ですが、Do～Loopの中を通っているのに、「run_stop.Visible = True」を実行してくれません。
ここがわからないです。

また、measureEndの初期値を「0」にしたところ、Do～Loop文は抜けることを確認しました。

Do～Loop文を使うことにこだわってはいません。
ほかの方法でも前提条件のことを実現できるのであれば、別方法でも構いません。

以上、よろしくお願いします。

Comments

[pepperleaf]

> 「run_stop.Visible = True」を実行してくれません。
多分、実行してます。ただ、stopボタンを表示する処理が実行できないだけでは?
Do ～ Loopを外して、 Do Loop以降の処理を stopボタンの処理に移してみましょう。

[退会済みユーザー]

Public Sub run_Click(sender As Object, e As EventArgs) Handles run.Click
run.Visible = False
run_stop.Visible = True
End Sub
このようにするということでしょうか？

実際には他の処理を行っている最中に上記measureEndの値で強制終了させようとしています。
Do～Loopを外すと強制終了のフラグを監視することができないので、ちょっと困ります。

Answer 1

他のサイトでも検索をして下記コードで開始後のフォームが固まる現象を回避することができました。
Application.DoEvents()