如题，窗体上显示当前时间，并且时间一直在走动。怎么实现

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

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

2楼正解。

Timer1.Interval = 1000
什么意思

就是让这个定时器每隔1秒刷新一编。

单位是毫秒，所以设置为1000毫秒，也就是1秒。

这个属性可以在运行时随时设置，也可以在定时器的属性窗口设置。

回答完毕！

谢谢，但像你说的那样，只能显示时间。
像我这样：
Form_Load()
DTPicker1.CustomFormat = "yyyy年MM月dd日"
DTPicker1.Value = Now
Label1.caption=DTPicker1.Value
End Su

可以显示出日期和时间，可就是时间一直不变，
如果像我这样，能不能帮我解决下，或用别的方法，让日期和时间都显示，并时间在走动也行

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

Private Sub Timer1_Timer()
Label1.Caption = now
End Sub
这样就都可以显示了!

像你的做法，如果我要只显示日期，不显示时间呢？
Label1.Caption = ？？？？？？？

另外，像我那样，
Form_Load()
DTPicker1.CustomFormat = "yyyy年MM月dd日"
DTPicker1.Value = Now
Label1.caption=DTPicker1.Value
End Sub

DTPicker1控件显示的是此刻的日期
我要他显示一年后或是两年后的日期呢
DTPicker1.Value = ？？？？

Private Sub Timer1_Timer()
Label1.Caption = date
End Sub

亲爱的管理，后面那个问题你不会吗？