Public Sub cmdSend_Click()
Cancelar = False 'Aqui, en el Connect() o en el click del botón de conectar
While (Winsock1.State <> sckConnected Or Cancelar = True)
Label3.Caption = "Esperando conexión..."
DoEvents
Wend
If Winsock1.State = sckConnected Then
Winsock1.SendData txtMensajeEnviar.Text
Label3.Caption = "Sending Data"
Else
Label3.Caption = "No se puede conectar a host"
End If
End Sub
Public Sub cmdClose_Click()
cmdConnect.Enabled = True
cmdSend.Enabled = False
cmdClose.Enabled = False
Cancelar = True
End Sub