FOR EACH loControl IN Thisform.Controls Thisform.FindControls( loControl ) ENDFORThis code in FindControls method:
Lparameters toControl Local loPage, loControl, loColumn, lnCol With toControl Do Case Case Upper( .BaseClass ) = 'PAGEFRAME' For Each loPage In .Pages Thisform.FindControls( loPage ) Endfor Case Inlist( Upper( .BaseClass ), 'PAGE', 'CONTAINER' ) For Each loControl In .Controls Thisform.FindControls( loControl ) Endfor Otherwise ? SYS( 1272, toControl ) Endcase Endwith