Public Class Form1
 
    Private MainThread As Thread = New Thread(AddressOf StartListener)
 
    Private Port As Integer = 12345
    Private ID As Integer = 1
 
    Private Done As Boolean = False
    Private Packet As Test
 
    Private Structure Test
        Dim Time As UInteger
        Dim Var1 As Single
        Dim ID As Integer
    End Structure
 
    Private Sub Form1_Load([...]) Handles MyBase.Load
        MainThread.Start
    End Sub
 
    Private Sub Form1_FormClosing([...]) Handles MyBase.FormClosing
        Done = True
        MainThread.Abort
    End Sub
 
    Private Sub StartListener()
 
        Dim Buffer1 As Test
        Dim Buffer2 As Test
 
        Dim Listener As New UdpClient(Port)
        Dim EndPoint As New IPEndPoint(IPAddress.Any, Port)
 
        Dim Pt As Integer
 
        Try
 
            While Not Done
 
                Dim Data As Byte() = Listener.Receive(EndPoint)
 
                Pt = 0
                Buffer1.Time = BitConverter.ToUInt32(Data, Pt)
                Pt += 4
                Buffer1.Var1= BitConverter.ToSingle(Data, Pt)
                Pt += 4
                Buffer1.ID = BitConverter.ToInt32(Data, Pt)
                Pt += 4
 
                If Buffer1.ID = ID Then
 
                    Select Case Buffer1.Time
                        Case Is > Buffer2.Time
 
                            Buffer2 = Buffer1
 
                        Case Else
 
                            Buffer2 = Buffer1
                            Buffer1 = Packet
 
                    End Select
 
                    Packet = Buffer2
 
                End If
 
            End While
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Listener.Close()
        End Try
 
    End Sub
End Class