Bevel Property (Panel Object) Example

This example adds two Panel objects to a StatusBar control, and gives each Panel a different bevel style. To use the example, place a StatusBar control on a form and paste the code into the Declarations section. Run the example.

Private Sub Form_Load()
   Dim pnlX As Panel
   Dim I as Integer
   
   For I = 1 to 2
      Set pnlX = StatusBar1.Panels.Add() ' Add 2 panels.
   Next I

   With StatusBar1.Panels
      .Item(1).Style = sbrCaps   ' Caps Lock
      .Item(1).Bevel = sbrInset   ' Inset
      .Item(2).Style = sbrNum   ' NumLock
      .Item(2).Bevel = sbrNoBevel   ' No bevel
      .Item(3).Style = sbrDate   ' Date
      .Item(3).Bevel = sbrRaised   ' Raised bevel
   End With
End Sub