Private Sub Timer1_Timer()
Dim nombrePC As String
Dim horaActual As String, horaApagado As String
horaActual = Format(Time, "hh:mm:ss AM/PM")
horaApagado = Format(Text1.Text, "hh:mm:ss AM/PM")'La hora de apagado está en un text
nombrePC = "\\192.168.1.102" 'Aki debes poner la IP o nombre de la computadora
'Si ya pasó la hora de apagado, psss apagala
If horaActual >= horaApagado Then
'Llamo a la función de apagado, para que se apague en 10 segundos
InitiateSystemShutdown nombrePC, "El sistema se está apagando", 10, True, False
Timer1.Enabled = False'Deshabilito el timer
End If
End Sub