VB.NET　「タイトルバーをクリックすることでメインスレッドが止まる」のを防ぎたい

前提・実現したいこと

ボタンクリック後、数日間稼働し続けるWindowsフォームアプリケーションをVB.NETで作成しております。

ユーザーがタイトルバーをクリックして、アプリケーションの位置を変更したりしても、プログラムが動くようにしたいです。

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

作成途中で、アプリケーションのタイトルバーをクリックすると、メインスレッドが動いていないことに気づきました。
メインスレッドの処理を、別のスレッドとして作成して、メインスレッドではスレッドを新しくすれば、うまくいくかもしれないとは思ったのですが、
VB.NETを初めて1か月の自分にはかなり厳しいと感じました。
プロパティ等をいじることによって、これを防ぐことはできないのでしょうか？

該当のソースコード

Dim sw As New Stopwatch()
    'ストップウォッチスタート
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        sw.Start()


    End Sub

    'ストップウォッチのミリ秒の表示
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        System.Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.Highest
        While True

            If sw.ElapsedMilliseconds > 200 Then
                'フォームに出力
                Label1.Text = sw.ElapsedMilliseconds.ToString
            End If
            '1秒経過すると、ｃｓｖに出力して、ストップウォッチをリスタート
            If sw.ElapsedMilliseconds > 1000 Then
                 sw.Stop()
                 counter += 1
                 textFile = New IO.StreamWriter(csvname, True, System.Text.Encoding.Default)
                 'ストップウォッチのミリカウントとカウンターを出力
                 textFile.WriteLine(sw.ElapsedMilliseconds.ToString & "," & counter.ToString)
                textFile.Close() ' -- StreamWriter を閉じて
                textFile.Dispose() ' -- StreamWriter を解放
                sw.Restart()
            End If
            My.Application.DoEvents()
        End While

    End Sub

    'ストップウォッチのリスタート
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        sw.Stop()
        sw.Restart()
    End Sub

試したこと

このようなストップウォッチの経過時間を表示するプログラムの場合、タイトルバーをクリックしている間は、ストップウォッチは進んでいるようですが、
Label1.Textは更新されず、アプリケーション画面の更新がされません。

補足情報(言語/FW/ツール等のバージョンなど)

少しだけマルチスレッドにするとどうなるか試してみましたが、時間的にも厳しいため、今回はマルチスレッド処理をしない解決策をご教授いただけると幸いです。
よろしくお願いいたします。

以下、マルチスレッドでためしたこと

プログレスバーが１からすすんでいって１００になると、ボタンが押せるようになるプログラムで、スレッドを作成した場合、
アプリケーションの見た目上は95くらいで、内部的には１００になっていて、ボタンが押せるようになっていました。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        System.Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.Highest
        Button1.Enabled = False
        'Dim sw As New Stopwatch()
        Dim t As New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf LongTask))
        t.Start()
        Button1.Enabled = True
    End Sub
    Private Delegate Sub UpdateProgressBarDelegate(ByVal val As Integer)
    Private Sub UpdateProgressBar(ByVal val As Integer)
        ProgressBar1.Value = val
        If val = 100 Then
            Button1.Enabled = True
        End If

    End Sub
    Sub LongTask()
        Dim i As Integer
        For i = 0 To 100
            Threading.Thread.Sleep(100)
            ProgressBar1.BeginInvoke(
            New UpdateProgressBarDelegate(AddressOf UpdateProgressBar), i)
        Next
    End Sub