Outro Visual Basic - Criando um Chat

[rekkto]

Estou criando um chat em Visual Basic e gostaria de adicionar algumas coisas

1 - Um nome de usuário que aparece ao lado da mensagem que enviou.

2 - Identificação de IP pelo nome de usuário com sistema de registro

 

Segue o código:

 

Imports System.IO
Imports System.Net.Sockets

Public Class Chat
    Public meuip As String
    Public friendip As String

    Dim listener As New TcpListener(6060)
    Dim client As New TcpClient

    Private Sub Chat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then

            client = New TcpClient(friendip, 6060)
            Dim sw As New StreamWriter(client.GetStream())
            sw.Write(TextBox2.Text)
            sw.Flush()
            TextBox1.AppendText(TextBox2.Text + vbNewLine)

            TextBox2.Clear()

        End If
    End Sub

    Private Sub Chat_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            listener.Start()
        Catch ex As Exception
            MessageBox.Show("Error ao iniciar o servidor!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        client = New TcpClient(friendip, 6060)
        Dim sw As New StreamWriter(client.GetStream())
        sw.Write(TextBox2.Text)
        sw.Flush()
        TextBox1.AppendText(TextBox2.Text + vbNewLine)

        TextBox2.Clear()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick

        Dim mensagem As String = ""

        If listener.Pending = True Then

            client = listener.AcceptTcpClient
            Dim sr As New StreamReader(client.GetStream())

            While sr.Peek > -1
                mensagem &= Convert.ToChar(sr.Read()).ToString
            End While

            TextBox1.AppendText(mensagem + vbNewLine)

        End If

    End Sub
End Class