VB LAN Chat - Einkommende Nachricht ganz nach oben statt ganz nach unten

VB LAN Chat - Einkommende Nachricht ganz nach oben statt ganz nach unten

Moin Leute,
Ich binn gerade dabei einen LAN Chat zu Programmieren.
Und nun habe ich das Problehm das wenn ich eine Nachricht an einen Partner sende das die nachricht (in einer RichTextBox) ganz unten in der Box kommt.
z.B.
ganz alt
alt
neu
neuer

ich will es aber so haben:

neuer
neu
alt
ganz alt

geht das ?

Hier mein Code:


Imports System.Net.Sockets
Imports System.Threading
Imports System.IO


Public Class Form1
Dim Listener As New TcpListener(55555)
Dim client As TcpClient
Dim message As String = ""
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Listener.Stop()
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim listthread As New Thread(New ThreadStart(AddressOf Listening))
listthread.Start()
End Sub

Private Sub listening()
Listener.Start()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Textbox abfragen ob leer
If RichTextBox2.Text = "" Then
MsgBox("Bitte erst eine Nachricht eintragen!", vbExclamation, "Achtung!")
Exit Sub
End If

client = New TcpClient(TextBox1.Text, 55555)
Dim writer As New StreamWriter(client.GetStream())

writer.Write(RichTextBox2.Text)
writer.Flush()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Listener.Pending = True Then
message = ""
client = Listener.AcceptTcpClient()

Dim reader As New StreamReader(client.GetStream())
While reader.Peek > -1
message = message + Convert.ToChar(reader.Read()).ToString
End While

RichTextBox1.Text = RichTextBox1.Text & message & vbCrLf

Else : End If


End Sub
End Class


und dann würde ich gerne wenn ich eine Nachricht schreibe und die Sende das ich zum Senden nicht auf einen Button klicken muss sondern nur Enter (Eingabe) drücken muss und das die nachricht nach dem senden aus der Box wo ich die eigegeben habe gelöscht wird.


mfg DJK

RichTextBox1.Text = message & vbCrLf & RichTextBox1.Text

Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
    If InStr(RichTextBox2.Text, vbLf) > 0 Then
        client = New TcpClient(TextBox1.Text, 55555)
        Dim writer As New StreamWriter(client.GetStream())
        writer.Write(RichTextBox2.Text)
        writer.Flush()
        
        RichTextBox2.Text = ""  
    End If
End Sub

RichTextBox2.Text = ""

RichTextBox2.Text = ""

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
        If InStr(RichTextBox2.Text, vbLf) > 0 Then
            MsgBox("Gesendet!")  

            RichTextBox2.Text = ""  
        End If
    End Sub

MsgBox("Gesendet:" & vbCrLf & RichTextBox2.Text)