状态栏问题！

Question

如何让状态栏中的时间显示秒数，就象时钟一样！
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add()
mypanel.AutoSize = sbrSpring
mypanel.MinWidth = 1
Set mypanel = StatusBar1.Panels.Add(, , Now)
mypanel.Width = 2500
mypanel.Bevel = sbrInset
mypanel.Alignment = sbrCenter
StatusBar1.Panels(1).Text = "操作员：" + frmlogin.txtusername.Text
StatusBar1.Panels(1).AutoSize = sbrContents
StatusBar1.Panels(2).Text = "当前时间:"
StatusBar1.Panels(2).AutoSize = sbrContents
这样的代码只会显示时间，每隔一分钟才会改变一次，而秒数不会跟着变化，怎样才能让秒数跟着变化呢？

Answer 1

放一个时钟控件，Interval设为500，在其Timer时间里
Private Sub Timer1_Timer()
    StatusBar1.Panels(2).Text = "当前时间:" & Now
End Sub