• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Design an Alarm with a few lines of code

Design an Alarm with a few lines of code

Design an Alarm with a few lines of code

API Declarations


'Controls
'One Timer - Interval 1000
'One Text box- Get the time here
'One Command Button - Name: Set
Dim a As Date



Rate Design an Alarm with a few lines of code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

a=Text1.Text
Timer1.Enabled=True
End Sub

Private Sub Form_Load()
Timer1.Enabled=False
Text1.Text=Time
End Sub

Private Sub Timer1_Timer()
If a-Time=0 Then
Msgbox "You have asked me to remind you at this time","Alarm"
Timer1.Enabled=False
End Sub