No puedes asegurar un 100% q tu conexion no se caiga....es algo casi imposible a menos q la otra persona nunca se le caiga la luz,nunca se duerma o q deje la PC ON...
No se si ya respondieron a sus preguntas pero aqui les va un ejemplo:
Código:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Me.Caption = "Apagando sistema en 5 segundos..." 'Sleep en 5000 milisegundos Sleep 5000 Me.Caption = "" End Sub Private Sub Form_Load() Me.Caption = "" Command1.Caption = "Este boton apagara el sistema..." End Sub
'Bueno este codigo hara q tu PC se apague mucho cuidado ^^!