*OptionGroup.Ini() >local loButton, lnLeft, , lnTop, lcName, lcCaption >for lnI = This.ButtonCount to 1 step -1 > loButton = eval('this.' + This.Buttons[lnI].name) > lnLeft = loButton.Left > lnTop = loButton.Top > lcName = loButton.Name > lcCaption = loButton.Caption > This.RemoveObject(lcName) > This.NewObject(lcName, 'YourClass', 'YourLibrary') > loButton = eval('this.' + lcName) > loButton.Top = lnTop > loButton.Left = lnLeft > loButton.Caption = lcCaption > loButton.AutoSize = .t. > loButton.Visible = .t. >endfor