VB如何分别获取当前时间中的年，时，分，秒？

Print Date; "日期"
Print Time; "时间"
Print Now; "日期和日间"
Print Format(Now, "yyyy年mm月dd日 hh时mm分ss秒")
Print Year(Now); "年"
Print Month(Now); "月"
Print Day(Now); "日"
Print Hour(Now); "时"
Print Minute(Now); "分"
Print Second(Now); "秒"






private sub form_load()
text1.text=year(now)
text2.text=month(now)
text3.text=day(now)
text4.text=hour(now)
text5.text=minute(now)
text6.text=second(now)
end sub