在編輯數(shù)據(jù)庫(kù)的記錄時(shí)，可以用 StatusBar 控件通知用戶數(shù)據(jù)庫(kù)的各種屬性，例如正在編輯的表的名稱、其創(chuàng)建日期、以及最后一次更新的日期。
    下面的代碼用到了如下對(duì)象：
    名為“frmDataviewer”的 Form
    名為“sbrData”的 StatusBar 控件
    名為“datData”的 Data 控件
    添加顯示數(shù)據(jù)庫(kù)屬性的 StatusBar
    用 Add 方法創(chuàng)建 Panel 對(duì)象的集合。
    為每個(gè) Panel 對(duì)象配置 AutoSize 屬性?！　?BR>    用 Panel 對(duì)象的 Text 屬性顯示數(shù)據(jù)庫(kù)的屬性?！　?BR>    在 PanelClick 事件中用 Select Case 語(yǔ)句重新設(shè)置屬性。
    用 Add 方法創(chuàng)建 Panel 對(duì)象的集合
    要在運(yùn)行時(shí)創(chuàng)建 Panel 對(duì)象的集合，需要使用 Add 方法。首先需要聲明一個(gè) Panel 類型的變量。在添加每個(gè) Panel 對(duì)象時(shí)，可以用該變量包含對(duì)新創(chuàng)建的對(duì)象的引用。下面的代碼在 Form 對(duì)象的 Load 事件中創(chuàng)建了三個(gè) Panel 對(duì)象。
    Private Sub Form_Load()
    Dim pnlX As Panel
    Dim i As Integer
    For i = 1 to 3 '第一個(gè)面板已存在。
    Set pnlX = sbrData.Panels.Add()
    Next i
    End Sub　　
    注意：在向集合中添加了三個(gè) Panel 對(duì)象之后，控件中實(shí)際上有四個(gè)面板，原因是該控件中已缺省地創(chuàng)建了一個(gè)面板?！　?BR>    為每個(gè) Panel 對(duì)象配置 AutoSize 屬性
    StatusBar 控件的一個(gè)特性就是面板能夠根據(jù)自身的內(nèi)容自動(dòng)改變大小。下例循環(huán)遍歷了所有 Panel 對(duì)象，并將每個(gè)的 AutoSize 屬性設(shè)置為 sbrSpring（1）。這樣每個(gè)面板通過“伸縮”分享該控件的總寬度?！　?BR>    Private Sub Form_Load()
    Dim pnlX As Panel
    Dim i As Integer
    For i = 1 to 3 '第一個(gè)面板已存在。
    Set pnlX = sbrData.Panels.Add()
    Next i　　
    '改變所有面板的 AutoSize。
    For i = 1 to 4 ' < -- 新代碼
    sbrData.Panels(i).AutoSize = sbrSpring '新
    Next i '新
    End Sub