Public Class Form1
 
    Dim sender1 As New UdpClient(8001)
    Dim senpoint As New IPEndPoint(IPAddress.Parse("192.168.0.255"), 8001)
    Dim receiveoint As New IPEndPoint(IPAddress.Any, 8001)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
        ' ProtocolType.Udp)
        'Dim broadcast As IPAddress = IPAddress.Parse("192.168.0.255")
        'Dim sendbuf As Byte() = Encoding.ASCII.GetBytes("0 1")
        ' Dim ep As New IPEndPoint(broadcast, 8001)
        's.SendTo(sendbuf, ep)
        's.Close()
        Dim sendbuf As Byte() = Encoding.ASCII.GetBytes("Code")
        sender1.Connect(senpoint)
        sender1.Send(sendbuf, sendbuf.Length)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        sender1.EnableBroadcast = True
        BackgroundWorker1.RunWorkerAsync()
     End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        Dim receiveBytes As [Byte]() = sender1.Receive(receiveoint)
        Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
 
        MsgBox(("This is the message you received " + returnData.ToString()))
        MsgBox(("This message was sent from " + _
        receiveoint.Address.ToString() + " on their port number " + _
        receiveoint.Port.ToString()))
    End Sub
End Class
 
leider kommt nichts zurück