Visual Basic - cierre sesion con timer

Hola gracias de antemano por la ayuda.
tengo el siguiente codigo para cerrar sesion con un timer , y no se ke fallo tiene ,al poner el punto de interrupcion nisikiera entra.

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

Alguien puede decirme ke pasa.
muchas gracias.