18-06-2017, Saat: 00:14
Kod:
Private Sub Command1_Click()
Form1.WindowState = 1 'Formu simge durumuna küçült
Timer1.Enabled = True 'Zamanlayıcıyı başlat
End Sub
Private Sub Command2_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End
End Sub
Private Sub Form_Load()
Show
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Timer1_Timer()
saat = Format(Time, "hh:mm")
If saat = Text1.Text Then
Beep
Shell ("shutdown -s -t 1")
Timer1.Enabled = False
Form1.WindowState = 0 'Formu tekrar görüntüle
End If
End Sub