Function startUDPListener(ByVal listbox As System.Windows.Forms.ListBox)
 
            m_udpc = New UdpClient(10001)
            Dim ep As IPEndPoint
            ep = New IPEndPoint(IPAddress.Any, 10001)
            Do
                m_blnUDPServerStarted = True
                Dim rdata As Byte() = m_udpc.Receive(ep)
                Dim data As String = Encoding.ASCII.GetString(rdata)
                ''  Console.WriteLine(data)
                listbox.Items.Add(data)
                listbox.Refresh()
                Dim blnAddClient As Boolean = True
 
                Try
                    If m_RemoteClients(data) = data Then
                        'data exists, do nothing
                    End If
                Catch e As Exception
                    m_RemoteClients.Add(data, data)
                End Try
            Loop
        End Function

 Public Thread2 As Threading.Thread
Thread2 = new Threading.Thread(AddressOf  StartUDPListener )''geht nicht
Thread2.Start