Dim client As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, _
          ProtocolType.Udp)
        Dim endpoint As New IPEndPoint(IPAddress.Any, 0)
        Dim ip As IPAddress = IPAddress.Parse("192.168.10.1")
        Dim EPClient As IPEndPoint = New IPEndPoint(ip, 13)
        client.Bind(endpoint)
        client.SendTo(New Byte() {2, 4, 8}, EPClient)