alberto jimenez
16 de Agosto del 2003

hola amigos
mas abajo va el codigo de mi problema

con mucho esfuerzo y gracias a lo que uds. me han enseñado he logrado hacer este relojito para mi viejo

que al ingresar una hora de termino
en un cuadro de texto y al cumplirse esta hora en el reloj timer entonces se abre una ventana indicando la
hora de termino y bloqueando algunas teclas como el
control - alt - sup - win
mi consulta es como hago para que tres minutos antes de la hora de termino, arrojar un mensaje de
advertencia?

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Timer1_Timer()


Static cont As Byte

lblhora = Format(Time, "hh:mm:ss")

If Frmcontrol.txthorafin.Text = lblhora Then
Load Form1
Form1.Show ' abre reloj maximizado y sin borde
Form1.Enabled = False 'inabilita ventana (eso creo)
Load Form2
Form2.Show
Call SystemParametersInfo(97, True, "1", 0)


End If


End Sub