DTPicker1.Value =dateadd("yyyy",2,date)

在窗体上添加一个timer 控件 将其interval 属性设为1000
Private Sub Timer1_Timer()
Form1.Caption = Now
End Sub

timer.interval=1000不能保证得到的时间的准确度

我建议这样

Timer timer1
.Interval=10
.enabled=true

Sub form_load()
me.caption=date & time
end sub

sub timer1_timer()
timer1.enabled=false
while 1=1
me.caption=date&time
doevents
'还可以用API释放一点CPU占用 缺点：影响窗体Performance
Sleep 10 '这个值不要太大
wend
end sub

Sleep这个API需要声明