Private BroadIpAddress As IPAddress = IPAddress.Parse("192.168.1.255")
Private Sub startUDPListener()
            Try
                m_udpc = New UdpClient(80)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Dim ep As IPEndPoint
            ep = New IPEndPoint(BroadIpAddress, 0)
            Do
                m_blnUDPServerStarted = True
                Dim rdata As Byte() = m_udpc.Receive(ep)
                data = Encoding.ASCII.GetString(rdata)
                list_pointer.Items.Add(data)
                list_pointer.Refresh()
                Dim i As Long
                Dim blnAddClient As Boolean = True
                Try
                    If m_RemoteClients(data) = data Then
                    End If
                Catch e As Exception
                    m_RemoteClients.Add(data, data)
                End Try
            Loop
        End Sub
 
'läuft in eigenem Thread
Public Function Start_Thread2(ByVal listbox As ListBox)
            list_pointer = listbox
            Dim thread2 As Threading.Thread
            thread2 = New Threading.Thread(AddressOf startUDPListener)
            thread2.Start()
        End Function