近来看一看！

Question

在控件上点右健，选Properties，在Panel选项卡里，在Style里选sbrDate就可以了

Answer 1

Style 属性（Panel 对象）
      返回或设置 Panel 对象的样式，该对象属于 StatusBar 控件。语法object.Style [= number]Style 属性的语法含有下列部分：部分 描述 
object 对象表达式，其值是 Panel 对象。 
number 如同在设置值中描述的那样，指定 Panel 样式的整数或常数。 
设置值number 的设置值是：常数 值 描述 
sbrText 0 （缺省）。文本和/或位图。用 Text 属性设置文本。 
sbrCaps 1 Caps Lock 键。当激活 Caps Lock 时，用黑体显示字母 CAPS，反之，当停用 Caps Lock 时，显示暗淡的字母。 
sbrNum 2 Number Lock。当激活数字锁定键时，用黑体显示字母 NUM，反之，当停用数字锁定键时，显示暗淡的字母。 
sbrIns 3 Insert 键。当激活插入键时，用黑体显示字母 INS。反之，当停用插入键时，显示暗淡的字母。 
sbrScrl 4 Scroll Lock 键。当激活滚动锁定时，用黑体显示字母 SCRL，反之，当停用滚动键时，显示暗淡的字母。 
sbrTime 5 Time。以系统格式显示当前时间。 
sbrDate 6 Date。以系统格式显示当前日期。 
sbrKana 7 Kana。当激活滚动锁定时，用黑体显示字母 KANA。反之，当滚动锁定停用时，显示暗淡的字母。 
说明如果将 Style 属性设置为除零（文本和位图）以外的任何样式，则任何以 Text 属性设置的文本将不显示，除非将 Style 属性设置为零。Style 属性能作为添加到集合中的 Panel 对象而设置。详细信息请参阅 Add 方法。注意   StatusBar 控件也含有 Style 属性。当设置 StatusBar 控件的 Style 为 Simple 时，该控件仅显示一个大面板和它的字符串（用 SimpleText 属性设置）。Style 属性（Panel 对象）示例
这个示例用各种样式在 StatusBar 控件上显示数据。要试用此例，将 StatusBar 控件放置在窗体上并将代码粘贴到窗体的声明部分，然后运行此例。Private Sub Form_Load()
   '定义变量。
   Dim I as Integer
   Dim pnlX as Panel
   
   For I = 1 to 5   '添加五个面板。
      Set pnlX = StatusBar1.Panels.Add( ) 
   Next I   '设置每一个面板的样式。
   With StatusBar1.Panels
      .Item(1).Style = sbrDate    '日期
      .Item(2).Style = sbrTime    '时间
      .Item(3).Style = sbrCaps    'Caps 锁定
      .Item(4).Style = sbrNum   'Number 锁定
      .Item(5).Style = sbrIns    'Insert 键
      .Item(6).Style = sbrScrl    'Scroll 锁定
   End With
   Form1.Width = 9140 '为显示所有面板加宽窗体。
End Sub