hola no se si te sirve de algo pero yo tenia esto puesto en un programa que mediante un control timer apagaba el ordenador entre las 23:30 y las 7:00 de la mañana (osea que no se podia usar ya que si iniciabas sesion entre los dos intervalos de hora se volvia apagar, era para que la cria no encendiera su ordenador por la noche..), y salia un mensaje.
Private Sub Timer1_Timer()
lahora = Time$
INICIO = "23:30:00"
FINAL = "07:00:00"
If lahora < FINAL Or lahora >= INICIO Then
'aqui lo que quieras que haga'
.......
.......
else
.......
end if
end sub
nota: el interval del timer a 1000
