Udp протокол, изменение цвета формы серверной части приложения

Imports System.Net.Sockets
Imports System.Net
 
Public Class Form1
    Dim GLOIP As IPAddress
    Dim GLOINTPORT As Integer
    Dim bytCommand As Byte() = New Byte() {}
    Dim udpClient As New UdpClient
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        udpClient.Close()
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CD As New ColorDialog
        If CD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Button1.BackColor = CD.Color
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pRet As Integer
        Try
            GLOIP = IPAddress.Parse("192.168.1.54")
            GLOINTPORT = "22122"
            udpClient.Connect(GLOIP, GLOINTPORT)
            bytCommand = System.Text.Encoding.Default.GetBytes(ColorTranslator.ToHtml(Button1.BackColor))
            pRet = udpClient.Send(bytCommand, bytCommand.Length)
        Catch ex As Exception
        End Try
    End Sub
End Class

Imports System.Net.Sockets.Socket
Imports System.Net.Sockets
 
Public Class Form1
    Public receivingUdpClient As UdpClient
    Public RemoteIpEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
    Public ThreadReceive As System.Threading.Thread
    Dim SocketNO As Integer
 
    Public Sub ReceiveMessages()
        Try
            Dim receiveBytes As [Byte]() = receivingUdpClient.Receive(RemoteIpEndPoint)
            Me.Text = RemoteIpEndPoint.Address.ToString
            Dim BitDet As BitArray
            BitDet = New BitArray(receiveBytes)
            Dim strReturnData As String = System.Text.Encoding.Default.GetString(receiveBytes)
            Me.BackColor = Drawing.ColorTranslator.FromHtml(System.Text.Encoding.Default.GetChars(receiveBytes))
            NewInitialize()
        Catch e As Exception
        End Try
    End Sub
 
    Public Sub NewInitialize()
        ThreadReceive = New System.Threading.Thread(AddressOf ReceiveMessages)
        ThreadReceive.Start()
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Try
            receivingUdpClient.Close()
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SocketNO = "22122"
            receivingUdpClient = New System.Net.Sockets.UdpClient(SocketNO)
            ThreadReceive = New System.Threading.Thread(AddressOf ReceiveMessages)
            ThreadReceive.Start()
        Catch x As Exception
        End Try
    End Sub
 
End Class