'Delegates und Funktionen
    Delegate Sub SetTextCallback(ByVal Data As String)
    Public Sub SetText(ByVal Data As String)
        If frmKopplung.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            frmKopplung.Invoke(d, New Object() {Data})
        Else
            frmKopplung.txtTelegramme.Text += Data
        End If
    End Sub
 
    Delegate Sub SetStatusCallback(ByRef myLabel As Label, ByVal Data As String)
    Public Sub SetStatus(ByRef myLabel As Label, ByVal Data As String)
        If myLabel.InvokeRequired Then
            Dim d As New SetStatusCallback(AddressOf SetStatus)
            myLabel.Invoke(d, New Object() {myLabel, Data})
        Else
            myLabel.Text = Data
        End If
    End Sub
 
'Aufruf aus Threadmethode:
    Dim client As TcpClient = myTcpServer.AcceptTcpClient()
    SetText(Now & "- Connected!" & vbNewLine)
    SetStatus(frmFusszeile.lblPMON, "verbunden")