si cierra la aplicacion no puede estar activo.


pues con un if puedes mirar el resultado de la conexion, con un on error etc..... tu mismo.

AHhhhhh osea que estas creando un troyano
pues la verdad eso que dices que si se cierra el cliente no se puede y los errores se puede hacer de una forma

supongamos que insertas
1 winsock
1 caja de texto
1 boton

listo

este es el codigo

Private Sub Command1_Click()
If (Winsock1.State = sckConnected) Then
    Winsock1.SendData Text1
    Text1 = ""
Else
    MsgBox "Sin conexión ..."
 End If
End Sub


y si estas haciendo un troyano te invito a que formes parte de un proyecto mio que estoy haciendo y con la ayuda de todos los que se metan daremos vida a un buen troyano jejeje si quieres agregame a tu correo mi correo es draser_supra@hotmail.com

  Muchas gracias por invitarme, si que habia visto que hos habias reunido para hacer un troyano pero al no conocer a nadie me corte, ya te he agregado, haber si coincidimos y hablamos, y gracias por el codigo que me has puesto