Lab 3: Alarm Clock
Private Sub Command1_Click()
Text2.Text = InputBox("Enter The Alarm Time")
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
If Text1.Text = Text2.Text Then
MsgBox ("Wake UP")
End If
End Sub
Text2.Text = InputBox("Enter The Alarm Time")
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
If Text1.Text = Text2.Text Then
MsgBox ("Wake UP")
End If
End Sub
Leave a Comment