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

Timer1.Interval = 1000
什么意思

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

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

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

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

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

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