Imports System.NetImports System.Text.EncodingPublic Class Form1    Dim publisher As New Sockets.UdpClient(0)    Dim subscriber As New Sockets.UdpClient(2000)    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Try            Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0)            Dim rcvbytes() As Byte = subscriber.Receive(ep)            TextBox4.Text = ASCII.GetString(rcvbytes)        Catch ex As Exception        End Try    End Sub    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        subscriber.Client.ReceiveTimeout = 100        subscriber.Client.Blocking = False    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        publisher.Connect(TextBox1.Text, TextBox2.Text)        Dim sendbytes() As Byte = ASCII.GetBytes(TextBox3.Text)        publisher.Send(sendbytes, sendbytes.Length)    End SubEnd Class