Private Delegate Sub AppendTextDelegate(ByVal Textbox As TextBox, ByVal _
      Text As String)
    Private Sub AppendTextSimple(Textbox As TextBox, ByVal Text As String)
        ' Diese Funktion wird im GUI-Thread ausgeführt
        Textbox.AppendText(Text)
    End Sub
    Private Sub AppendTextThreadsafe(Textbox As TextBox, ByVal Text As String)
        ' Diese Funktion wird in einem anderen Thread ausgeführt, wobei
        ' nicht gewartet wird, bis der GUI-Thread die Funktion fertig 
        ' ausgeführt hat
        Textbox.BeginInvoke(New AppendTextDelegate(AddressOf AppendTextSimple), _
          Textbox, Text)
    End Sub