[RESOLVED] 2nd thread does not end when flagged to end.

[MrJim547]

Good day,
When the main thread is busy, I want to display a progress bar and then close it when the main thread is finished work. The display of Form2 and it's progress bar work fine. But when the stopFlag is set, the 2nd thread does not see it and does not execute the Form2.Close() code. It only executes it after I manually close Form2. The below code is a simple app that demonstrates the problem. I am running Win 10 and VS 2019. Any ideas would be appreciated. Thanks

Imports System.Threading
Public Class Form1
    Dim stopFlag As Boolean = False
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        stopFlag = False
        Dim t = New Thread(AddressOf ShowProgress)
        t.Start()
        Dim y = 0
        For x = 1 To 10000
            While y < 200000
                y = y + 1
            End While
            y = 0
        Next
        stopFlag = True
        MessageBox.Show("Done")
    End Sub
    Private Sub ShowProgress()
        Form2.ShowDialog()
        Form2.BringToFront()
        While stopFlag = False
        End While
        Form2.Close()
    End Sub
End Class