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