d If
End Sub
Public Sub InsertAfter(btn As cButton, btnAfter As cButton)
Attribute InsertAfter.VB_Description = "Inserts a Button after the specified
 button in the CommandBar."
Dim ctl As vbalCommandBar
   If (btn Is Nothing) Or (btnAfter Is Nothing) Then
      gErr 8
   Else
      If (ControlFromhWnd(m_hWnd, ctl)) Then
         ctl.BarButtonInsertAfter m_sKey, btn, btnAfter
      End If
   End If
End Sub

</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="r