Dim sendbuf As Byte() = Encoding.ASCII.GetBytes("code")
        sender1.Connect(senpoint)
        sender1.Send(sendbuf, sendbuf.Length)
 
        sender1.Close()
 
        Dim test As New IPEndPoint(IPAddress.Any, 8001)
        Dim respons As New UdpClient(8001)
        Dim test1 As Byte() = respons.Receive(test)
        ListBox1.Items.Add(Encoding.ASCII.GetString(test1))
        respons.Close()