Private Sub Button1_Click()
   Winsock1.Close
   Winsock1.LocalPort = 20000
   Winsock1.RemotePort = 20700
   Winsock1.RemoteHost = "1.1.1.1"
   Winsock1.Connect

   Dim datax As String
   datax = "Informacion"
   Winsock1.SendData datax

   Winsock1.Close
   Winsock1.RemotePort = 20600
   Winsock1.RemoteHost = "2.2.2.2"
   Winsock1.Connect                      'Error
   Winsock1.SendData datax

End Sub                                                                 

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