求一个VB应用程序

在窗体上画一个Timer控件和五个Label控件，然后写下以下代码。单击窗体，则分别显示当前的年，月，日，星期及 时间。
Private Sub Form_Click()
Dim r
Timer1.Enabled = True
r = Array("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
Label1.Caption = year(now) & "年"
Label2.Caption = month(now) & "月"
Label3.Caption = day(now) & "日"
label4.caption=r(Weekday(Now))
Label5.Caption = Time
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label5.Caption = Time
End Sub

print format (now,"long date") & time