Threading заставляет мою программу не отвечать?

Question

Эй вот мой сценарий:

Private Sub UpdateThread() 
     Dim AppDir As String = Application.StartupPath() 
     My.Computer.Network.DownloadFile(MyUpdate.UpdateFetchURL, UpdateClass.WebUpdateZIP, True, True) 
     MyUpdate.ExtractArchive(UpdateClass.WebUpdateZIP, AppDir) 
     File.Delete(UpdateClass.WebUpdateZIP) 
    End Sub 

Как я называю это:

Private Sub FetchUpdateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FetchUpdateButton.Click 
     FetchUpdateButton.Enabled = False 
     Dim trd As New Thread(AddressOf UpdateThread) 
     trd.IsBackground = True 
     trd.Start() 
     Do 
      ProgressBar1.Increment(5) 
      ProgressBar1.Increment(2) 
     Loop 
    End Sub 

Он делает совершенно задачу UpdateThread, но программа просто виснет. Вот и все. Благодарю.

Answer 1

Вы начинаете цикл без каких-либо условий для выхода из этого цикла.