Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Select Case TextBox1.Text
            Case "Hannes"
                RichTextBox1.SelectionColor = Color.Aqua
                RichTextBox1.AppendText("Hannes: ")
                RichTextBox1.SelectionColor = Color.Black
                RichTextBox1.AppendText(TextBox2.Text & vbNewLine)
            Case "Franz"
                RichTextBox1.SelectionColor = Color.Brown
                RichTextBox1.AppendText("Franz: ")
                RichTextBox1.SelectionColor = Color.Black
                RichTextBox1.AppendText(TextBox2.Text & vbNewLine)
        End Select
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus