bgw1Aufgaben.RunWorkerAsync()

Private Sub bgw1Aufgaben_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles bgw1Aufgaben.DoWork
 
Zähler = Zähler + 1
 
End Sub

Private Sub bgw1Aufgaben_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
  System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
  bgw1Aufgaben.RunWorkerCompleted
 
Debug.Print(Zähler)
 
End Sub

Imports System.ComponentModel
 
Public Class frmBackgroundWorker
 
    Dim WithEvents bgw As New BackgroundWorker
 
    Dim zähler As Integer = 0
 
 
    Private Sub frmBackgroundWorker_Load(sender As Object,
                                  e As EventArgs) Handles MyBase.Load
 
        bgw.RunWorkerAsync()
    End Sub
 
 
    Private Sub bgw_DoWork(sender As Object, 
                           e As DoWorkEventArgs) Handles bgw.DoWork
        zähler += 1
    End Sub
 
 
    Private Sub bgw_RunWorkerCompleted(sender As Object,
        e As RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
 
        Me.Invoke(New MethodInvoker(AddressOf showzähler))
    End Sub
 
    Private Sub showzähler()
        Me.Text = zähler.ToString
    End Sub
End Class