>LOCAL ARRAY laControls(1,2) > >LOCAL lnCounter >lnCounter = 0 > >LOCAL loCheckbox AS Checkbox >FOR EACH loCheckbox IN THIS.Controls > IF loCheckbox.Class = "Checkbox" ; > AND loCheckbox.Visible = .T. > lnCounter = lnCounter + 1 > DIMENSION laControls(lnCounter,2) > laControls(lnCounter,1) = loCheckbox.Top > laControls(lnCounter,2) = loCheckbox.Name > ENDIF >ENDFOR > >=ASORT(laControls) > >LOCAL lnPosition, lnOffset >lnPosition = 0 >lnOffset = 3 > >LOCAL lnID >FOR lnID = 1 TO lnCounter > loCheckbox = EVALUATE("THIS." + laControls(lnID,2)) > loCheckbox.Top = lnPosition > lnPosition = lnPosition + loCheckbox.Height + lnOffset >ENDFOR > >RETURN .T. >