Date Project By Using Label

Form Design:

Form = 1

Command Button = 3

Label = 1

Properties Set:

Object	Property	Settings
Form1	Caption Height Width	Date Project by Label 4875 5310
Command1	Caption	Date
Command2	Caption	Clear
Command3	Caption	Exit
Label	Alignment Caption BackColor Height Width Left Top	2 - Center [blank] &H00C0FFC0& 615 2535 1560 1200

Code:

Private Sub Command1_Click()

Label1.Caption = Date

End Sub

Private Sub Command2_Click()

Label1.Caption = ""

End Sub

Private Sub Command3_Click()

End

End Sub