Date Project By Using Text Box

Form Design:

Form = 1

Command Button = 3

Text Box = 1

Properties Set:

Object	Property	Settings
Form1	Caption Height Width	Date Project by Text Box 4875 5310
Command1	Caption	Date
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 = Date

End Sub

Private Sub Command2_Click()

Text1.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub