Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Sock.Close()
        Sock.LocalPort = 2800
        Sock.RemotePort = 1000
        Sock.RemoteHost = "x.x.x.x"
        Sock.Connect()
        Dim datax As String = "Informacion"
            Sock.SendData(datax)
  
        Sock.Close()
        Sock.RemotePort = 1000
        Sock.RemoteHost = "x.x.x.x"
        Sock.Connect()
Sock.SendData(datax)
    End Sub