Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        BackgroundWorker1.RunWorkerAsync()
    End Sub
 
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        System.Threading.Thread.Sleep(2000)
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
      ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      BackgroundWorker1.RunWorkerCompleted
        Label1.Text = "Abgeschlossen"
    End Sub
 
End Class