Date & Time Project By Using Text Box

Date & Time Project By Using Text Box

Form Design:

Form = 1

Command Button = 4

Text = 2

Properties Set:

Object	Property	Settings
Form1	Caption Height Width	Date & Time Project by Text Box 4875 6060
Command1	Caption	Date
Command2	Caption	Time
Command3	Caption	Clear
Command4	Caption	Exit
Text1	Alignment Text Font Style Font Size Fore Color Height Width Left Top	2 - Center  [blank] Bold 14 &H000000FF& 615 2535 3240 600
Text2	Alignment Text Font Style Font Size Fore Color Height Width Left Top	2 - Center  [blank] Bold 14 &H000000FF& 615 2535 3240 2040

Code:

Private Sub Command1_Click()

Text1.Text = Date

End Sub

Private Sub Command2_Click()

Text2.Text = Time

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command4_Click()

End

End Sub

Date & Time Project By Using Text Box

Date & Time Project By Using Text Box

Date & Time Project By Using Text Box

Date & Time Project By Using Text Box