Monday 7 July 2014

Alarm Clock





Code:
Private Sub timer1_timer()
Label1.Caption = Time
    If Time > Text1.Text And Option1.Value = True Then
    Beep
    End If
End Sub

No comments:

Post a Comment