Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load
    Me.Text = Format(Now(), "D")
End Sub 'Form1_Load