VBA code to copy activex control with its code

On workbook "A" I have a command button with a code behind the button.
I want to copy the command button and its code to another workbook "B"
It should be done using VBA code. The command button is to be inserted
on other users sheets, and they cannot unprotect them.

In other words I need a VBA code which would copy a command button and its code from
mother sheet to sheets of other users
There is no problem to copy a command button but it is copied without code

Can anybody help me with above problem ??

PLEASE, can somebody help ??