hWnd, ctl)) Then
      ctl.BarButtonClear m_sKey
   End If
End Sub
Public Sub Remove(ByVal sKey As String)
Attribute Remove.VB_Description = "Removes the Button with the specified index
 or key from the command bar."
Dim ctl As vbalCommandBar
   If (ControlFromhWnd(m_hWnd, ctl)) Then
      ctl.BarButtonRemove m_sKey, sKey
   End If
End Sub
Public Sub Add(btn As cButton)
Attribute Add.VB_Description = "Adds a new Button to this CommandBar."
Dim ctl As vbalCommandBar
   If (btn Is Nothing) Then
      gErr 8
 