Date and Time Formats

Private Sub Timer1_Timer()
Text1.Text = Format(Now, "m/d/yy")
Text2.Text = Format(Now, "dddd,mmmmm dd,yyyy")
Text3.Text = Format(Now, "d-mmm")
Text4.Text = Format(Now, "mmmm-yy")
Text5.Text = Format(Now, "hh:mm AM/PM")
Text6.Text = Format(Now, "h:mm:ss a/p")
Text7.Text = Format(Now, "d-mmmm h:mm")

End Sub