Private Delegate Sub LogRtfHandler(ByVal msgtype As Integer, ByVal msg As _
      String)
 
    Private Sub Log(ByVal msgtype As LogMsgType, ByVal msg As String)
        If rtfTerminal.InvokeRequired Then
            rtfTerminal.Invoke(New LogRtfHandler(AddressOf Log), New Object() _
              {msgtype, msg})
        Else
            rtfTerminal.SelectedText = String.Empty
            rtfTerminal.SelectionFont = New Font(rtfTerminal.SelectionFont, _
              FontStyle.Bold)
            rtfTerminal.SelectionColor = LogMsgTypeColor(CInt(msgtype))
            rtfTerminal.AppendText(msg)
            rtfTerminal.ScrollToCaret()
        End If
    End Sub

    Private Function LogRtf(ByVal msgtype As LogMsgType, ByVal msg As String) _
      As Boolean
        rtfTerminal.SelectedText = String.Empty
        rtfTerminal.SelectionFont = New Font(rtfTerminal.SelectionFont, _
          FontStyle.Bold)
        rtfTerminal.SelectionColor = LogMsgTypeColor(CInt(msgtype))
        rtfTerminal.AppendText(msg)
        rtfTerminal.ScrollToCaret()
        Return True
    End Function
 
    Private Sub Log(ByVal msgtype As LogMsgType, ByVal msg As String)
        rtfTerminal.Invoke(Function() LogRtf(msgtype, msg))
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist