Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim MyBirthday As Date = #5/21/1976#
  Me.Text = Format(MyBirthday, "long date")
End Sub 'Form1_Load