Private Shared ar As IAsyncResult
 
Private Sub CLIENT()
        Dim sck As Socket = New Socket( _
            AddressFamily.InterNetwork, _
            SocketType.Dgram, _
            ProtocolType.Udp)
        sck.Bind(New IPEndPoint(IPAddress.Any, 10000))
      ar = sck.BeginReceive(buf, 0, buf.Length, SocketFlags.None, New _
        AsyncCallback(AddressOf ReceiveCallBack), sck) 'Bei dieser Zeile kommt 
      ' ein Bug *
    End Sub