Private Sub Form_Load()
    Dim I
      ' See remarks at top
 
 
      ' Add a caption to 2nd band
    CoolBar1.Bands(2).Caption = "Address:"
 
      ' We want 4 bands to show up only, hence remove the rest.
    I = 4
    Do While CoolBar1.Bands.Count > I
        CoolBar1.Bands.Remove (I + 1)
    Loop
 
    CoolBar1.Bands(3).Caption = "Changed Caption"
End Sub