with thisform.PageFrame1.Pages(1) = .AddObject('Checkbox1', 'CheckBox') =.Checkbox1.Move(10, 20) .Checkbox1.Visible = .T. = .AddObject('TextBox1', 'TextBox') =.TextBox1.Move(10, 100) .TextBox1.Visible = .T. endwith