'deklaration
Private dataArrivalQueue As Queue = Queue.Synchronized(New Queue()
Public Event DataArrival(ByVal Data As String)
 
'Public sub new()
'...
 onDataArrivalTimer = New System.Timers.Timer()
        With onDataArrivalTimer
            .AutoReset = False         
            .Interval = 1             
        End With
..
 onDataArrivalTimer.SynchronizingObject = frmAnzeigeForm
end sub
 
   Protected Overridable Sub onDataArrival(ByVal data As String)
        Dim strValue As String = data
 
        If mSync Then
            'Wert in den Queue stellen. (LastIn, FirstOut)
            dataArrivalQueue.Enqueue(strValue)
            'Event auf dem Main Thread aufrufen
            onDataArrivalTimer.Enabled = True
 
        Else
            'Event auf dem Hintergrund Thread aufrufen
            RaiseEvent DataArrival(strValue)
 
        End If
    End Sub
 
    Private Sub onDataArrivalTimer_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles onDataArrivalTimer.Elapsed
        'DataArrival Event Timer
        Dim data As String
        'Durch syncLock lauft neben dem Thread her
        SyncLock dataArrivalQueue.SyncRoot
            'den Queue auslesen
            While dataArrivalQueue.Count > 0
                data = dataArrivalQueue.Dequeue
                'Event ausführen
                RaiseEvent DataArrival(data)
            End While
        End SyncLock
    End Sub

Cya At Frostwolf