VB 如何在窗体内实时显示当前 年 月 日 星期 时间，谢谢！

在窗体中加入Timer控件命名Timer1,Interval属性设为1000(1秒),TextBox控件命名T
加入如下代码
方案一:
Private Sub Timer1_Timer()
T.Text = Format(Now, "yyyy年mm月dd日 ddd hh:mm:ss")
End Sub
显示格式为:2007年06月27日 Wed 03:47:23

方案二:
Private Sub Timer1_Timer()
T.Text = Format(Now, "yyyy年mm月dd日 ") & WeekdayName(Weekday(Now)) & Format(Now, " hh:mm:ss")
End Sub
显示格式为:2007年06月27日 星期三 03:47:15

这会在程序启动1秒后显示时间
如果要启动后立刻显示,需要在加入代码
Private Sub Form_Load()
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Text1 = Now'显示日期和时间
Text2 = Date$'显示日期
Text3 = Time$'显示时间
End Sub

Caption=date