Ya lo dijo EON, para eso usas el eveto Unload del formulario, puedes agregarle un mensaje de advertencia y que se efectue determinada acción dependiendo de la respuesta, mira este ejemplo:

Private Sub Form_Unload(Cancel As Integer)
    Cancel = (MsgBox("¿Realmente desea Salir?", vbQuestion + vbYesNo, _
                   "Salir") = vbNo)
    If Cancel = 0 Then
        Guardar 'llamamos a la rutina encargada de guardar
    End If
End Sub

Incluso podrías usar una variable booleana que indique cuando se ha realizado un cambio en el textbox y de esta manera al cerrar el form solo guarde si se ha producido un cambio o si nunca se ha guardado.

¡S4lu2!

Ese tema se ha tratado muchas veces:
http://foro.elhacker.net/index.php/topic,173739.msg825470.html#msg825470
 usa el botoncito que dice "Buscar" y encontraras unos cuantos temas relacionados con lo que quieres.

Echale un vistazo al enlace que te dejo, tambien hay varias funciones en este subforo para determinar la existencia de un archivo y ejercer una acción dependiendo del valor que devuelva.

Pd: y si no entiendes algo lo posteas acá mismo.

¡S4lu2!

Pero se te olvido tomar en cuenta los eventos!!!

Cuando la conexión se efectua se produce un evento denominado: Connect y es hay donde deberias colocar la siguiente instrucción ¡prueba a ver!

Private Sub Winsock1_Connect()
'Este evento Ocurre cuando hemos establecido con éxito la conexión al servidor
    Winsock1.SendData "lo_que_sea"
End Sub

Cuando la conexión se establece se envia la cadena.

¡S4lu2!

¡cierto! antes de postear se googlea 

http://www.recursosvisualbasic.com.ar/htm/listado-api/73-apagar-monitor.htm

 

Simplemente no te detuvistes a leer un poco, te dije lo siguiente y me cito:


Eso es justamente lo que debés hacer, adapta el modulo que te indique a tu proyecto y luego puedes usar el ejemplo que te cite, (porque ese ejemplo es el mismo que Cobein publico modificando solo los datos que carga el array y funciona perfectamente).

Tu error es justamente por eso, no puedes usar una función que no reconozca el vb, si no le pertenece al lenguaje tienes que declararla y establecer su rutina, esa será la función o el objetivo que cumplirá el modulo en este caso...

¡no se si me entendistes! ¡s4lu2!

 

 Usa el modulo que dejo Cobein:
http://www.recursosvisualbasic.com.ar/foro/copiar-archivos-al-portapapeles-t1630.0.html


Si el enlace no te funciona entones usa este otro, ya había sido posteado es este subforo.
http://foro.elhacker.net/index.php/topic,199434.msg948044.html

http://foro.elhacker.net/index.php/topic,180904.0.html

Private Sub CmdCopiarArchivo_Click()
Dim Cadena As String
    Cadena = App.Path & "/" & App.EXEName & ".exe"
    CopyClipboard Me.hWnd, Array(Cadena)
End Sub

¡S4lu2!

Usa los valores de la tabla ASCII para esta operación, puedes definirlo como mas te guste.

Podras generar un caracter haciendo algo como esto:

MsgBox Chr$(Int(Rnd * 33) + 127

Si deseas generar una cadena aleatoria de (ejemplo) 5 caracteres:

For I = 1 To 5
   Cadena = Cadena & Chr$(Int(Rnd * 33) + 127)
Next

Espero haberte ayudado, ¡S4lu2!

Echale un vistazo a esto -->
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm


¡S4lu2!

Disculpen mi intromisión pero llamo mi atención...

En su primer post mojolloyo20 usa tres timer para ejecutar tres aplicaciones en los minutos 4, 5 y 7 por separado, eso me da a entender que quiere ejecutarlos por grupo de 3 minutos de diferencia y por aplicación, por dos minutos, en ese sentido, este seria la manera mas simplificada de hacerlo:

Option Explicit
Dim Minuto As Integer
 
Private Sub Form_Load()
    Timer1.Interval = 60000
    Minuto = 0
End Sub
 
Private Sub Timer1_Timer()
    Select Case Minuto
        Case 4: Shell ("explorer.exe")
        Case 5: Shell ("notepad.exe")
        Case 7: Shell ("regedit.exe"): Minuto = 0    
    End Select
    Minuto = Minuto + 1
End Sub

Cabe acotar que errores como estos solo confunden mas al principiante:
Hay que asegurarse de lo que se esta postiando... por lo demás todo esta bien...

¡S4lu2!

Prueba a usar comprobación de estado antes de la linea donde te marca el error:

'Si el socket no esta conectado ni en escucha entonces...
If Ws.State <> 2 And Ws.State <> 7 Then

Aunque no te recomendaria lo del Timer, deberías hacer lo que dice juancho77 despues de que la conexión se cierre