Bar
   Set btnInt = ButtonAdd("CHEVRON:SEPARATOR")
   btnInt.Style = eSeparator
   barAddOrRemoveBar.Add btnInt
   Set btnInt = ButtonAdd("CHEVRON:CUSTOMISE")
   btnInt.Caption = "&amp;Customise..."
   btnInt.Enabled = False
   barAddOrRemoveBar.Add btnInt

   Set barChevron = BarAdd("CHEVRON")
   Set btnChevron = ButtonAdd("CHEVRON:ADDORREMOVE")
   btnChevron.Caption = "&amp;Add or Remove Buttons"
   btnChevron.SetBar barAddOrRemoveBar
   barChevron.Add btnChevron
      
End Sub

Public Sub AddRef(ByVal hW