怎么在vb中显示电脑当前的年月日和时间

如何在vb中显示电脑当前的年月日和时间?
我希望在打开vb的时候显示年月日,和当前时间?
不知道有什么方法?
谢谢。

------解决方案--------------------
now
dim a as string
a=cstr(now)
------解决方案--------------------
用VB自带的时期时间函数NOW()
------解决方案--------------------
Private Sub Form_click()
form1.print CStr(Now)
End Sub