Private data as String
Delegate Sub DelStartUdpListener(ByVal listbox As System.Windows.Forms.ListBox)
Sub DelStartUdpLister_Start(ByVal listbox As System.Windows.Forms.ListBox)
            Dim Del_form As Form1
            Dim DelInstance As New DelStartUdpListener(AddressOf _
              Me.startUDPListener)
            Del_form.Invoke(DelInstance, New Object() {data})
Public Sub 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)
                data = Encoding.ASCII.GetString(rdata)
                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 Sub
    End Class
Private Sub bVerbinden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bVerbinden.Click
 
        Dim t As New UDPListener
        t.startUDPServer()
        t.startUDPListener(ListBox2)
 
    End Sub