在VB中怎么在StatusBar中设置时间日期？

VB6.0需要在窗体添加Timer控件和StatusBar 控件来实现状态栏动态显示系统日期和时间。

• StatusBar 控件，StatusBar 控件提供窗体，该窗体通常位于父窗体的底部，通过这一窗体，应用程序能显示各种状态数据。StatusBar 
  最多能被分成 16 个 Panel 对象，这些对象包含在 Panels 集合中。

• 缺省设置StatusBar 控件的StatusBar1.Style = sbrNormal，StatusBar 控件显示所有的 Panel 对象。

• Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

• 代码实例：

  Private Sub Form_Load()

     Timer1.Interval = 500

     Dim I As Integer

     For I = 1 To 2

        StatusBar1.Panels.Add

     Next I

     StatusBar1.Style = sbrNormal 

   Label1.Visible = False

End Sub





Private Sub Form_Resize()

   With StatusBar1.Panels

      .Item(1).Style = sbrDate   '日期

      .Item(2).Style = sbrTime   'Caps 锁定

   End With

End Sub




Private