Imports System.Threading
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
 
    Public Sub serverThread()
        Dim udpClient As New UdpClient(8080)
        While True
            Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
            Dim receiveBytes As Byte()
            [color=green]'Hier bleibt das Programm hängen
            [color=red]receiveBytes = udpClient.Receive( _
              RemoteIpEndPoint)[/color]
            Dim returnData As String = _
            Encoding.ASCII.GetString(receiveBytes)
            lbConnections.Items.Add( _
            RemoteIpEndPoint.Address.ToString() + ":" + _
            returnData.ToString())
        End While
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
        Dim thdUDPServer = New Thread(New ThreadStart(AddressOf _
        serverThread))
        thdUDPServer.Start()
    End Sub