  End If
End Property
Public Property Get Item(index As Variant) As cButton
Attribute Item.VB_Description = "Gets the Button with the specified index or
 key in the CommandBar."
Attribute Item.VB_UserMemId = 0
Dim ctl As vbalCommandBar
   If (ControlFromhWnd(m_hWnd, ctl)) Then
      Set Item = ctl.BarButton(m_sKey, index)
   End If
End Property
Public Sub Clear()
Attribute Clear.VB_Description = "Clears all Button objects associated with
 this CommandBar."
Dim ctl As vbalCommandBar
   If (ControlFromhWnd(m_