Private Sub Form_Load()Winsock.RemotePort = "puerto"Winsock.RemoteHost = "ip"WS.CloseWS.ConnectEnd Sub