在窗体上创建一个计时器Timer1，一个标签LabTime

Private Sub Form_Load()

Dim Times As Date

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Const date0 As Date = #10/1/2009 10:10:10 AM# '日期