Public Class frmMain
    Dim WithEvents SPS As New clsSPS("192.168.0.86")
End Class
 
Public Class clsSPS
    Dim WithEvents St01 As New clsStation()
	'Die anderen 21 Deklarationen spare ich mir mal
    Dim WithEvents St22 As New clsStation()
End Class
 
Public Class clsStation
    Dim WithEvents bgw1 As New System.ComponentModel.BackgroundWorker
 
    Public Sub New()
        Me.bgw1.WorkerReportsProgress = True
        Me.bgw1.WorkerSupportsCancellation = True
        Me.bgw1.RunWorkerAsync()
    End Sub
 
    Private Sub bgw1_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles bgw1.DoWork
        While True
            Try
                'Nur was tun, wenn der Stationsstatus > 0 ist
                If Me.StatusVonSps > 0 Then
                'Tue so dies und das
                End If
            Catch ex As Exception
                Me.bgw1.ReportProgress(1, ex.Message)
            End Try
            'Den anderen Thread's ein bisschen Zeit geben, dann wieder von _
              vorne beginnen
            Application.DoEvents()
            Threading.Thread.Sleep(50)
        End While
    End Sub
End Class