Time Project By Using Text Box

Form Design:

Form = 1

Command Button = 3

Text Box = 1

Properties Set:

Object	Property	Settings
Form1	Caption Height Width	Time Project by Text Box 4875 5310
Command1	Caption	Time
Command2	Caption	Clear
Command3	Caption	Exit
Text1	Alignment Text Height Width Left Top	2 - Center  [blank] 615 2535 1560 1200

Code:

Private Sub Command1_Click()

Text1.Text = Time

End Sub

Private Sub Command2_Click()

Text1.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub