Simple Alarm vb6

Buatlah 1 form dengan menu
2 timer interval 1000, timer 1 enabled true dan timer 2 enabled false
3 text
 1 command

3 label.

masukkan kode dibawah ini.



Private Sub Command1_Click()
Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub





Private Sub Timer1_Timer()
Label1 = Hour(Time)
Label2 = Minute(Time)
Label3 = Second(Time)
End Sub

Private Sub Timer2_Timer()
If Text1 = Label1 And Text2 = Label2 Then
MsgBox (Text3)
Text1 = ""
Text2 = ""
Text3 = ""
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End If
End Sub

atau download saja softwarenya disini