Dim thrNachrichtenSendenEmpfangen As New System.Threading.Thread(AddressOf _
  AblaufSendenEmpfangen)

    Sub NachrichtenSendenEmpfangen()
        Try
            'in eigenem Thread starten
            If thrNachrichtenSendenEmpfangen.IsAlive = False Then
                thrNachrichtenSendenEmpfangen = New System.Threading.Thread( _
                  AddressOf AblaufSendenEmpfangen)
                thrNachrichtenSendenEmpfangen.Start()
            End If
        Catch ex As Exception
            'ggf. Fehler ins Log schreiben
        End Try
    End Sub
 
    Private Sub AblaufSendenEmpfangen()
        NachrichtenAusgangPruefen()
        NachrichtenEingangPruefen()
    End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)