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 Groupi 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