如何设计显示时间呀？

我想实现在窗体上显示变化的日期和时间的功能，但下面的程序运行后只是显示当前的某个点上的日期和时间，之后就固定不动了！该怎么改呀？


Private Sub Form_Load()
Labyear.Caption = Year(Date) '显示年份
Labmonth.Caption = Month(Date) '显示月份
Labday.Caption = Day(Date) '显示日期
Labtime.Caption = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) '显示时间


End Sub

谢谢 jackboy和 风沙雪雨的帮助，程序我已经调试过了，帮助很大，谢谢！