'Programımızda kullanacağımız malzemeler ise: 
'3 adet edit box 
'1 timer 
'4 adet buton 
'4 adet label 
'2 adet form 

Option Explicit 
Dim sekme As Date 
Dim alarm As Date 
Dim saat As Date 
Dim mas As String 

Private Sub baslat_Click() 
If Text3.Text = "" Or Text3.Text = "00:00:00" Then 
mas = MsgBox("Sekme değeri boş geçilemez. Lütfen bir değer giriniz. ") 
Else 
sekme = CDate(Text3.Text) 
alarm = Time + CDate(sekme) 
Text2.Text = alarm 
gezgoz.Visible = False 
End If 
End Sub 

Private Sub Timer1_Timer() 
saat = Time 
Text1.Text = Time 
If Text1.Text = Text2.Text Then 
Load frmUyari 
frmUyari.Show 
alarm = Time + CDate(Text3.Text) 
Text2.Text = alarm 
End If 
End Sub 

Private Sub cikis_Click() 
End 
End Sub
 




Private Sub cmdtamam_Click() 
Unload Me 
End Sub 

Private Sub kapa_Click() 
End 
End Sub