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