Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long



Private Sub Form_Timer()

'Bilgisayarı Kapatmak için

If label2.Caption = text1.Text And k1.Value = True Then

MsgBox ("Bilgisayarınız Kapatılıyor"), (16), ("UYARI !!!")

ExitWindowsEx 1, 0

DoCmd.Quit acQuitSaveAll

End if

'Bilgisayarı resetlemek için

If label2.Caption = text1.Text And r1.Value = True Then

MsgBox (" Bİlgisayarınız Resetleniyor "), (16), ("UYARI !!!")

ExitWindowsEx 2, 0

DoCmd.Quit acQuitSaveAll

End If

End Sub

Bunları formun kod bölümüne yazdıktan sonra özelliklerinden Süre Ölçer Aralığını ayarlamalısınız. Bildiğiniz üzere bu alana yazacağınız 1000 rakamı 1 dk' a tesadüf edecektir.

Örnek olmaksınız afaki olarak hazırlanmıştır. Çalışıp çalışmayacağını kendi örneğiniz üzerinde deneyerek bilgi verirseniz seviniriz. Çünkü Örneğin: If label2.Caption = text1.Text And r1.Value = True Then satırının işlerliği hakkında fikir yürütemiyorum. Kolay gelsin.