Codifique un programa VB0.6 para que cuente automáticamente 10 minutos para cerrar el formulario o apagar la computadora sin intervención manual.
Agregue un control de temporizador y pegue el código:
Opción explícita
Dim t As Integer
Private Sub Form_Load()
t = 10 * 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Si t gt 0 Entonces
t = t - 1
me.caption=t
Else
Shell "cmd.exe /c apagado -s -f -t 0"
End If
End Sub
Ese t es el número de segundos para la cuenta regresiva