Private Sub Check33_Click()
If Check33.Value = 1 Then
Timer20.Enabled = True
Else
Timer20.Enabled = False
End If
End Sub
1 adet timer ve 1 adet check ekleyin ..
Sayıları sizin şeye göre ayarlayın ..
Timer kodları :
Private Sub Timer20_Timer()
If LabelHP.Caption = 0 Then
Shell ("shutdown.exe -s -t 7200")
Else
End If
End Sub
If Check33.Value = 1 Then
Timer20.Enabled = True
Else
Timer20.Enabled = False
End If
End Sub
1 adet timer ve 1 adet check ekleyin ..
Sayıları sizin şeye göre ayarlayın ..
Timer kodları :
Private Sub Timer20_Timer()
If LabelHP.Caption = 0 Then
Shell ("shutdown.exe -s -t 7200")
Else
End If
End Sub
