Integer li_controls, I
String ls_xbl ls_ybl, ls_wbl, ls_hbl

Enclosing Setredraw (false)

Li_controls=upperbound (enclosing Control [])
FOR I=1 TO li_controls
CHOOSE a CASE enclosing Control [I] TypeOf ()
CASE the checkbox.
Icbx_obj=This. Control [I]
Of_getbl (icbx_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Icbx_obj. X=newwidth * real (ls_xbl)
Icbx_obj. Y=newheight * real (ls_ybl)
CASE radiobutton!
Irb_obj=This. Control [I]
Of_getbl (irb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Irb_obj. X=newwidth * real (ls_xbl)
Irb_obj. Y=newheight * real (ls_ybl)
CASE commandbutton!
Icb_obj=This. Control [I]
Of_getbl (icb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Icb_obj. X=newwidth * real (ls_xbl)
Icb_obj. Y=newheight * real (ls_ybl)
Icb_obj. Width=newwidth * real (ls_wbl)
Icb_obj. Height=newheight * real (ls_hbl)
CASE picture!
Ip_obj=This. Control [I]
Of_getbl (ip_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Ip_obj. X=newwidth * real (ls_xbl)
Ip_obj. Y=newheight * real (ls_ybl)
Ip_obj. Width=newwidth * real (ls_wbl)
Ip_obj. Height=newheight * real (ls_hbl)
CASE datawindow!
Idw_obj=This. Control [I]
Of_getbl (idw_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Idw_obj. X=newwidth * real (ls_xbl)
Idw_obj. Y=newheight * real (ls_ybl)
Idw_obj. Width=newwidth * real (ls_wbl)
Idw_obj. Height=newheight * real (ls_hbl)
CASE dropdownlistbox!
Iddlb_obj=This. Control [I]
Of_getbl (iddlb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Iddlb_obj. X=newwidth * real (ls_xbl)
Iddlb_obj. Y=newheight * real (ls_ybl)
Iddlb_obj. Width=newwidth * real (ls_wbl)
CASE dropdownpicturelistbox!
Iddplb_obj=This. Control [I]
Of_getbl (iddplb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Iddplb_obj. X=newwidth * real (ls_xbl)
Iddplb_obj. Y=newheight * real (ls_ybl)
Iddplb_obj. Width=newwidth * real (ls_wbl)
CASE listbox!
Ilb_obj=This. Control [I]
Of_getbl (ilb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Ilb_obj. X=newwidth * real (ls_xbl)
Ilb_obj. Y=newheight * real (ls_ybl)
Ilb_obj. Width=newwidth * real (ls_wbl)
Ilb_obj. Height=newheight * real (ls_hbl)
CASE multilineedit!
Imle_obj=This. Control [I]
Of_getbl (imle_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Imle_obj. X=newwidth * real (ls_xbl)
Imle_obj. Y=newheight * real (ls_ybl)
Imle_obj. Width=newwidth * real (ls_wbl)
Imle_obj. Height=newheight * real (ls_hbl)
CASE editmask!
Iem_obj=This. Control [I]
Of_getbl (iem_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Iem_obj. X=newwidth * real (ls_xbl)
Iem_obj. Y=newheight * real (ls_ybl)
Iem_obj. Width=newwidth * real (ls_wbl)
Iem_obj. Height=newheight * real (ls_hbl)
CASE TAB!
It_obj=This. Control [I]
Of_getbl (it_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
It_obj. X=newwidth * real (ls_xbl)
It_obj. Y=newheight * real (ls_ybl)
It_obj. Width=newwidth * real (ls_wbl)
It_obj. Height=newheight * real (ls_hbl)
CASE groupbox!
Igb_obj=This. Control [I]
Of_getbl (igb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Igb_obj. X=newwidth * real (ls_xbl)
Igb_obj. Y=newheight * real (ls_ybl)
Igb_obj. Width=newwidth * real (ls_wbl)
Igb_obj. Height=newheight * real (ls_hbl)
CASE hscrollbar!
Ihsb_obj=This. Control [I]
Of_getbl (ihsb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Ihsb_obj. X=newwidth * real (ls_xbl)
Ihsb_obj. Y=newheight * real (ls_ybl)
Ihsb_obj. Width=newwidth * real (ls_wbl)
Ihsb_obj. Height=newheight * real (ls_hbl)
CASE picturebutton!
Ipb_obj=This. Control [I]
Of_getbl (ipb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Ipb_obj. X=newwidth * real (ls_xbl)
Ipb_obj. Y=newheight * real (ls_ybl)
Ipb_obj. Width=newwidth * real (ls_wbl)
Ipb_obj. Height=newheight * real (ls_hbl)
CASE listview!
Ilv_obj=This. Control [I]
Of_getbl (ilv_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Ilv_obj. X=newwidth * real (ls_xbl)
Ilv_obj. Y=newheight * real (ls_ybl)
Ilv_obj. Width=newwidth * real (ls_wbl)
Ilv_obj. Height=newheight * real (ls_hbl)
CASE picturelistbox!
Iplb_obj=This. Control [I]
Of_getbl (iplb_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Iplb_obj. X=newwidth * real (ls_xbl)
Iplb_obj. Y=newheight * real (ls_ybl)
Iplb_obj. Width=newwidth * real (ls_wbl)
Iplb_obj. Height=newheight * real (ls_hbl)
CASE singlelineedit!
Isle_obj=This. Control [I]
Of_getbl (isle_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Isle_obj. X=newwidth * real (ls_xbl)
Isle_obj. Y=newheight * real (ls_ybl)
Isle_obj. Width=newwidth * real (ls_wbl)
Isle_obj. Height=newheight * real (ls_hbl)
CASE the treeview!
Itv_obj=This. Control [I]
Of_getbl (itv_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Itv_obj. X=newwidth * real (ls_xbl)
Itv_obj. Y=newheight * real (ls_ybl)
Itv_obj. Width=newwidth * real (ls_wbl)
Itv_obj. Height=newheight * real (ls_hbl)
CASE userobject!
Iuo_obj=This. Control [I]
Of_getbl (iuo_obj. Tag, ls_xbl ls_ybl, ls_wbl, ls_hbl)
Iuo_obj. X=newwidth * real (ls_xbl)
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull