Public Structure Packet
    Dim Time() As Byte
    Dim Var1 As Byte
    Dim Var2 As Single
    Dim Var3 As Single
    Dim ID As Long
End Structure
 
Public Class Form1
 
 Private Port As Integer = 12345
 
 
 ' Funktion ist nur kopiert^^ (CodeProject)
 Private Function BulidStr(ByVal Buff() As Byte, ByVal MyType As System.Type) _
   As Object
 
        Dim MyGC As GCHandle = GCHandle.Alloc(Buff, GCHandleType.Pinned)
 
        Dim Obj As Object = Marshal.PtrToStructure(MyGC.AddrOfPinnedObject, _
          MyType)
        Return Obj
 
        MyGC.Free()
 
 End Function
 
 Private Sub StartListener()
 
        Dim Listener As New UdpClient(Port)
        Dim EndPoint As New IPEndPoint(IPAddress.Any, Port)
 
        Dim Pack As Packet
 
        Try
 
                Dim Data As Byte() = Listener.Receive(EndPoint)
 
                Pack = BulidStr(Data, Pack.GetType)
 
        Catch ex As Exception
            MsgBox(ex)
        Finally
            Listener.Close()
        End Try
    End Sub
End Class