[求助]如何设计显示时间呀?
如何设计显示时间呀?我想实现在窗体上显示变化的日期和时间的功能,但下面的程序运行后只是显示当前的某个点上的日期和时间,之后就固定不动了!该怎么改呀?
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