This example copies the first control from the command bar named "Standard" to the first control on the command bar named "Custom”.
Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
With myControl
.Copy Bar:=myCustomBar, Before:=1
.SetFocus
End With