Public Class Form1
    Dim coins As Integer = 0
    Dim test As Boolean = False
 
    Private Sub Button1_Click(sender As Object, ByVal e As EventArgs) Handles _
      Button1.Click
        coins += 1
        TXTanzeige.Text = coins.ToString
        test = True
        BackgroundWorker1.WorkerReportsProgress = True
    End Sub
 
    Private Sub Button2_Click(sender As Object, ByVal e As EventArgs) Handles _
      Button2.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As _
      System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Do While test
            coins += 1
            BackgroundWorker1.ReportProgress(coins)
            Threading.Thread.Sleep(100)
        Loop
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As _
      System.ComponentModel.ProgressChangedEventArgs) Handles _
      BackgroundWorker1.ProgressChanged
        TXTanzeige.Text = e.ProgressPercentage.ToString
    End Sub
End Class