用vb.net写聊天软件

怎样用vb.net写跟QQ擦不多的聊天工具啊，要图片和代码都有，还要加注解，最好是这样的

知道你面向对象还没学，就用了最原始的！
Imports System.Net.Sockets '导入套接字Imports System.Text '导入文本处理Imports System.Threading '导入多线程技术Public Class Form1        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim IP As System.Net.IPAddress = System.Net.IPAddress.Parse(TextBox1.Text)        Dim RemotePort As Integer = ComboBox1.Text        Dim LocalPort As Integer = ComboBox2.Text        Dim UDPSender As New UdpClient        UDPSender.Connect(IP, RemotePort)        Dim message As Byte() = System.Text.Encoding.Unicode.GetBytes(TextBox2.Text)        UDPSender.Send(message, message.Length)        UDPSender.Close()    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load            End Sub
    Public Sub LisThread()        Dim RemotePort As Integer = ComboBox1.Text        Dim LocalPort As Integer = ComboBox2.Text        Dim Listener As New System.Net.Sockets.UdpClient(LocalPort)        Dim IPEndPort As System.Net.IPEndPoint = Nothing        While True            Dim ReceiveData As Byte() = Listener.Receive(IPEndPort)            Dim receivemessage As String = System.Text.Encoding.Unicode.GetString(ReceiveData)            ListBox1.Items.Add(receivemessage)        End While        Listener.Close()    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        Dim ListenerThread As New System.Threading.Thread(AddressOf LisThread)        ListenerThread.Start()    End SubEnd Class

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息