Public Sub ChatMessage(ByVal sUser As String, ByVal sMessage As String)
    Dim tmpData As String = sUser & ":" & vbTab & sMessage
    Dim p As Paragraph = New Paragraph(New Run(tmpData))
    p.Foreground = System.Windows.Media.Brushes.LightGreen
    p.FontSize = 12
    p.Margin = New System.Windows.Thickness(0, 0, 0, 0)

    RoomMessages.RichTextBox.Document.Blocks.Add(p)
    RoomMessages.RichTextBox.ScrollToEnd()

End Sub