BRILLIANT!!!!!
tnanks Hugo.
k

>You can use SetAll() like this:
>
>

>frmMyForm = Createobject('Form')  && Create a Form
>frmMyForm.Closable = .F.  && Disable the window pop-up menu
>frmMyForm.BorderStyle = 3
>frmMyForm.FontSize=10  && this will apply only to text above the option group
>frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Add Command button
>frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group
>frmMyForm.opgOptionGroup1.SetAll('FontName', 'Courier New') && You could add the optionbutton class here too
>frmMyForm.opgOptionGroup1.SetAll('FontSize', 9)
>

>>
>>i had assumed the font controls (type size) went into the group definition
>>

>>
>>Define Class opgMyOptGrp As OptionGroup  && Create an Option Group
>>	ButtonCount = 13 && number of Option buttons
>>	Top = 22
>>	Left = 14
>>	Height = 275
>>	Width = 243
>>                    fontsize = 12 &&&& this has no effect
>>                   font = "Arial"   &&& this has no effect
>>