  Else
      If (ControlFromhWnd(m_hWnd, ctl)) Then
         ctl.BarButtonAdd m_sKey, btn
      End If
   End If
End Sub
Public Sub InsertBefore(btn As cButton, btnBefore As cButton)
Attribute InsertBefore.VB_Description = "Inserts a Button before the specified
 button in the CommandBar."
Dim ctl As vbalCommandBar
   If (btn Is Nothing) Or (btnBefore Is Nothing) Then
      gErr 8
   Else
      If (ControlFromhWnd(m_hWnd, ctl)) Then
         ctl.BarButtonInsertBefore m_sKey, btn, btnBefore
      End If
   En