More on Date and Time Formats

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        t1.Text = Format(Now, "M")
        t2.Text = Format(Now, "MM")
        t3.Text = Format(Now, "MMM")
        t4.Text = Format(Now, "MMMM")
        t5.Text = Format(Now, "dd/MM/yyyy")
        t6.Text = Format(Now, "MMM,d,yyyy")
        t7.Text = Format(Now, "h:mm:ss tt")
        t8.Text = Format(Now, "MM/dd/yyyy h:mm:ss tt")
    End Sub
End Class