>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 >>
> >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 >Hi,