怎样在VB编程中插入当前日期和时间?

先插入一个Timer控件,将其Interval属性设置为1000,

再插入一个Label控件,其属性你自己设置,

Timer1的代码:Label1.Caption = Date &" " &Time

可以从当前时间（Time）和系统当前日期和时间（Now）中获取

方法如下：

Msgbox Hour(Now()) &"点" &Minute(Now()) &"分" &Second(Now()) &"秒"

Msgbox Hour(Time()) &"点" &Minute(Time()) &"分" &Second(Time()) &"秒"

Msgbox Format(Now(), "HH点MM分SS秒")

Msgbox Format(Time(), "HH点MM分SS秒")

---