Made a Startup Form

Private Sub Command79_Click()
If IsDate(Text75) Then

Form.Visible = False
End If
If Not IsDate(Text75) Then
DoCmd.GoToControl "Text75"
MsgBox "Please Entry Initial Date."
Form.Visible = True
Else
'Format([Date],"yyyy")
Me.MonthName.Value = "" & [MonthName] & "'" & Format([Text75], "YYYY") & ""



End If
End Sub


------------------------------------------------------------------------------------------------------


Private Sub Form_Load()
'Me.Text75.InputMask = "99/99/0000; "
DoCmd.Maximize
End Sub

------------------------------------------------------------------------------------------------------


Private Sub Form_Timer()
Me.TimerInterval = 1000
Label0.Caption = Time()
Label0.FontBold = True
Label0.FontSize = 50

Label0.Width = 10000
Label0.Height = 1500
Label0.ForeColor = Rnd * 255
Label0.BackColor = Rnd * 2147483633
Label0.Left = 4999 * Rnd
Label0.Top = 9000 * Rnd
Label20.FontSize = 15
Label20.ForeColor = Rnd * 255
Label20.BackColor = Rnd * 2147483633
Label20.Left = 4999 * Rnd
Label20.Top = 9999 * Rnd
'Me.Detail.BackColor = Rnd * 1677746
Me.Line1.BorderColor = Rnd * 200698
Me.Line2.BorderColor = Rnd * 300986
Me.Line3.BorderColor = Rnd * 400896
Me.Line4.BorderColor = Rnd * 500568
Me.Line5.BorderColor = Rnd * 6004568
Me.Line6.BorderColor = Rnd * 700456
Me.Line7.BorderColor = Rnd * 800544
Me.Line8.BorderColor = Rnd * 9005447
Me.Line9.BorderColor = Rnd * 100455
Me.Line10.BorderColor = Rnd * 255455
Me.Line11.BorderColor = Rnd * 355455
Me.Line12.BorderColor = Rnd * 455455
Me.Line13.BorderColor = Rnd * 555544
Me.Line14.BorderColor = Rnd * 655544
Me.Line15.BorderColor = Rnd * 755544
Me.Line16.BorderColor = Rnd * 855544
Me.Line17.BorderColor = Rnd * 955544
Me.Line18.BorderColor = Rnd * 2001444
Me.Line19.BorderColor = Rnd * 3001444
Me.Line20.BorderColor = Rnd * 4001444
Me.Line21.BorderColor = Rnd * 5001555
Me.Line22.BorderColor = Rnd * 600456
Me.Line23.BorderColor = Rnd * 700654
Me.Line24.BorderColor = Rnd * 800546
Me.Line25.BorderColor = Rnd * 900345
Me.Line26.BorderColor = Rnd * 100254
Me.Line27.BorderColor = Rnd * 200452
Me.Line28.BorderColor = Rnd * 300125
Me.Line29.BorderColor = Rnd * 400324
Me.Line30.BorderColor = Rnd * 500987
Me.Line31.BorderColor = Rnd * 600789
Me.Line32.BorderColor = Rnd * 700879
Me.Line33.BorderColor = Rnd * 800798
Me.Line34.BorderColor = Rnd * 900569
Me.Line35.BorderColor = Rnd * 100456
Me.Line36.BorderColor = Rnd * 200256
Me.Line37.BorderColor = Rnd * 300324
Me.Line38.BorderColor = Rnd * 400215
Me.Line39.BorderColor = Rnd * 500321
Me.Line40.BorderColor = Rnd * 600325
Me.Line41.BorderColor = Rnd * 700567
Me.Line42.BorderColor = Rnd * 800859
Me.Line43.BorderColor = Rnd * 900564
Me.Line44.BorderColor = Rnd * 100650
Me.Line45.BorderColor = Rnd * 200523
Me.Line46.BorderColor = Rnd * 300232
Me.Line47.BorderColor = Rnd * 400332
Me.Line48.BorderColor = Rnd * 500520
Me.Line49.BorderColor = Rnd * 600204
Me.Line50.BorderColor = Rnd * 700450
Me.Line51.BorderColor = Rnd * 800265
Me.Line52.BorderColor = Rnd * 900234
Me.Line53.BorderColor = Rnd * 100256
Me.Line54.BorderColor = Rnd * 200988
Me.Line55.BorderColor = Rnd * 300899
Me.Line65.BorderColor = Rnd * 400245566
Me.Line65.BorderStyle = Rnd * 7
Me.Line65.BorderWidth = Rnd * 6
'Me.Line65.Top = Rnd * 4200
Me.Line71.Left = 111 * Rnd + 222 * Rnd + 333 + 444 + 555 + 666 + 777 + 888 + 999 + 1500 * Rnd
Me.Line71.Width = 5000 * Rnd
Me.Line71.Height = Rnd * 30000
Me.Line71.BorderStyle = Rnd * 7
Me.Line27.BorderWidth = Rnd * 6
Me.Line27.BorderStyle = Rnd * 7
Me.Line27.Height = Rnd * 3000
Me.OnLoad = True

End Sub

------------------------------------------------------------------------------------------------------

Private Sub Label0_Click()
DoCmd.Close
End Sub