怎么用VBNET制作一個日程表？

'添加一個label標簽名字label1 用來顯示時間 '再添加一個timer控件 名字timer1 interval屬性=1000 用來計時 '窗體添加代碼Dim t As Date '用來記錄時間Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _System.EventArgs) Handles Timer1.Tick t = t.AddSeconds(1) Label1.Text = "登錄時間:" & t.TimeOfDay.ToStringEnd Sub