Visual Basic - continuacion timer

el codigo es el siguiente


Private Sub Timer1_Timer()

Label1.Caption = Time
S = Right(Label1.Caption, 2)


If Label1.Caption = txthora.Text & ":" & txtminuto.Text Then
If optapagar = True Then
Dim i As Integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
Resultado = ExitWindowsEx(Accion, 0&)
ElseIf optreiniciar = True Then
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
Resultado = ExitWindowsEx(Accion, 0&)
ElseIf optcerrarsesi = True Then
i = ExitWindowsEx(3, 0&) 'cierra sesion
Resultado = ExitWindowsEx(Accion, 0&)
End If
End If


End Sub

Lula
Si ni siquiera entra al primer if debe ser porque falta la comparación de los segundos, ya que el Caption=Time captura hora,minutos y segundos

Tal vez es mejor que utilices la funcion Datepart, para extraer la hora y parar extraer los minutos. Creo que sería

hora=Datepart("h",Label1) y minuto=Datepart("n",Label1) y luego haces if txthora= hora and txtminuto=minuto then....

Hola Dante!!!!! gracias gracias gracias, me has salvado de una depresion,jeje,el timer dichoso me tenia frita, con la funcion datepart funciona a la perfeccion.Si puedo ayudarte en algo no dudes en contar con migo( seguro ke sabes mas ke yo, pero la intencion es lo ke cuenta)
saludos lula :-)