commandbarobject.controls(itsname).PasteFace

<DnaLibrary Description="Sample Add-In">
  <Project Language="VB">
  <![CDATA[
    ' This class implements the ExcelDna.Integration.IExcelAddIn interface.
    ' This allows the add-in to run code at start-up and shutdown.

Class StartUp
     Implements IExcelAddIn
     Public Sub Start() Implements IExcelAddIn.AutoOpen
         ExcelDnaUtil.Application.commandbars("&My Menu").controls("Ring
&Bell").FaceID=273
         ExcelDnaUtil.Application.commandbars("&My Menu").controls("Say
&Hello").FaceID=59
     End Sub
     Public Sub Close() Implements IExcelAddIn.AutoClose
         'Fires when addin is removed from the addins list but not when
excel closes
         ' - this is to avoid issues caused by the Excel option to
cancel out of the close after the event has fired.
         MsgBox("Bye bye, from my DNA addin")
     End Sub
End Class

  Public Module MyTestFunctions

   Function GetTheExcelVersion() as string
   GetTheExcelVersion = ExcelDnaUtil.Application.Version
   End Function

   ' An easy way to add a menu and menu items for a command....
   ' This command sounds a tone and sets cell C3 to the value 42
   <ExcelCommand(MenuName:="&My Menu", MenuText:="Ring &Bell")> _
   Sub RingBell()
   Console.Beep()
   Dim r as New ExcelReference(3,3)
   r.SetValue(42)
   End Sub