Public Event Progress(ByVal title As String, ByVal progress As Integer, ByVal _
  status As Integer)
Public Sub New
    StartBGW()
End Sub
 
Private Sub StartBGW()
        bgw.WorkerSupportsCancellation = True
        bgw.WorkerReportsProgress = True
        RaiseEvent Progress("Test", 0, 0)  'button fehlt noch  
        ' cp.RepeatWhenAtTheEnd = True
        bgw.RunWorkerAsync()
    End Sub

Public WithEvents ts As ClassTest
 
Private Sub progress(ByVal text As String, ByVal progress As String, ByVal _
  status As Integer) Handles ts.Progress
 
End Sub

Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
  System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
  bgw.RunWorkerCompleted
     RaiseEvent Progress("", 100, 2)
End Sub