=================================Slip16_1===================================
Design the
digital watch using Timer control.
==========================================================================
Private Sub Command1_Click()
Timer1.Enabled =
True
|
End Sub
Private Sub Command2_Click()
Timer1.Enabled =
False
End Sub
Private Sub Timer1_Timer()
Label1.Caption =
Time
End Sub
No comments:
Post a Comment
Note: only a member of this blog may post a comment.