Public MustInherit Class Basis
 
'Konstruktoren, Code usw. 
 
    Private Read_Thread As Thread
 
    ''' <summary>
    ''' Diese Sub dient dazu separate Threads zu starten welche mittels Polling 
    ' den seriellen Port überwachen.
    ''' </summary>
    ''' <remarks></remarks>
    Friend Sub Starte_Überwachung()
 
        If Not Read_Thread Is Nothing Then
            If Read_Thread.IsAlive Then Exit Sub 'Nur einen Thread zulassen
        End If
 
        Read_Thread = New Thread(Sub() ReadSerialPort())
        With Read_Thread
            .IsBackground = True
            .Priority = ThreadPriority.BelowNormal
            .Name = _bezeichnung & " Lesethread"
            .Start()
        End With
 
    End Sub
 
    ''' <summary>
    ''' Beenden des Lesethreads.
    ''' </summary>
    ''' <remarks></remarks>
    Friend Sub Beende_Überwachung()
 
        Read_Thread.Abort()
 
    End Sub
 
    ''' <summary>
    ''' Methode zur Überwachung der Ports. 
    ''' </summary>
    ''' <remarks></remarks>
    Friend MustOverride Sub ReadSerialPort()
 
End Class

Public Class Gerät_A
Inherits Basis
 
'Konstruktoren, Code usw. 
 
    Friend Overrides Sub ReadSerialPort()
        Try
            Do While True
 
                Read_AllChannels()
 
            Loop
 
        Catch ex As ThreadInterruptedException
            Fehlerbehandlung(Fehlercodes.Thread_Interrupt, ex.Message)
        Catch ex As ThreadAbortException
            Fehlerbehandlung(Fehlercodes.Thread_Abbruch, ex.Message)
        Catch ex As Exception
            Fehlerbehandlung(Fehlercodes.Unbekannter_Fehler, ex.Message)
        End Try
 
    End Sub
 
End Class

Ahnungsloser ahnungsloser...