Label1.caption = Time '  Bu time komutu veya kodcuğu sistem zamanını çekerek labela yansıtıyor... 

On Error Resume Next 'Eğer ki hata olursa hatayı kafana takma devam et
Dim saat, dakika,saniye as integer ' Saniye aslında pek işimize yaramaz öylesine koydum hani isterseniz kullanırsınız.

Zamanim=Split(Label1.capiton, ":") ' Burdaki ":" bizim saat ayracımızdır.
'Labela dikkat ederseniz saati gösterirken üç ayrı dilim olur
'Örnek: 14:30:21 bize ilk ikisi lazım bu yüzden;
'Zamanim(0)  
'Zamanim(1)
'Yukarıdaki gibi 2 ye ayırıyoruz, yani Zamanim(0) bize saati, Zamanim(1) ise dakikayı gösteriyor, eğer ki ben saniyeyi de kullanıcam derseniz Zamanim (3) yapmanız yeterlidir.

saat=Zamanim(0)
dakika=Zamanim(1)

'Şimdi text lerimiz girdiğimiz zaman ile karşılaştırma ve işlem yapıcağız (aslında tek textbox ilede yapılabilir ama böyle yapıyım dedim)
'Text1 in görevi saat,text2 nin görevi dakika
IF Check1.value= 1 then

IF text1.text = saat and Text2.text=dakika then
' buraya saatle ilgili işlemlerimizi koyabiliriz yani biz bir nevi alarm kurduk saat  bizim istediğimiz saat e gelince alarm çalıcak  :D

If zamanislem.Text = "Alarm Çal" Then Beep
If zamanislem.Text = "Atak Durdur" Then atk_yap.Value = 0 'atk_yap bu kısmı kendinize göre düzeltiniz.
If zamanislem.Text = "Pc Kapat" Then Shell ("shutdown -s -t 1")
If zamanislem.Text = "Koxpu Kapat" Then Unload Me
End If

End if

Alarm Çal
Atak Durdur
Pc Kapat
Koxpu Kapat