Thanks for the reply Hypetia. The first thing i already used. It works fine.
I tried your code without any result. To bad.
this is the code I already had:
.Add "mnuExtra", "options", , "Change Skin" '(31)
.Add "options", "mSkin1", smiCheckBox, "Aisi", , , , smiChecked '(32)...