Digital Watch Project

Form Design:

Form = 1

Text Box = 1

Timer = 1

Properties Set:

Object	Property	Settings
Form1	Name Caption Height Width	Watch Digital Watch 1605 6240
Text1	Text Font  Name Font Size Back Color Fore Color Height Width	[blank] Milano LET 48 &H00808080& &H0000C000& 1245 6135
Timer1	Interval	100

Code:

Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

Download Full Project

Related Post