Public Shared Function UDP_Listen(ByVal Port As Integer) As Boolean
        Try
            UDP_Server_Port = Port
            UDP_Server = New UdpClient(Port)
            thdUdp = New Threading.Thread(AddressOf GetUDPData)
            thdUdp.Start()
        Catch e As Exception
 
        End Try
 
    End Function
 
    Private Shared Sub GetUDPData()
        Do While Launcher_running
            Try
                RData = Encoding.Unicode.GetString(UDP_Server.Receive( _
                  RemoteIpEndPoint))
                'RaiseEvent DataArrival(RData)
                If RData = "CloseMe" Then Exit Do
                Threading.Thread.Sleep(0)
            Catch e As Exception
 
            End Try
        Loop
    End Sub