>Hi ,
>
>would you like to give simple sample for loop and insert actions ?
>
>for example i've below control
>
>thisform.txtdate1
>thisform.txtdate2
>thisform.checkbox1
>thisform.combobox1
>thisform.optiongroup.option1
>thisform.optiongroup.option2
>
>TIA

You'd need a recursive call to a method that collects them. Roughly:

procedure fillcollection
Lparameters oContainerObject
Local ix, nMembers, lnExpand, oObjectRef, aContainerObjects[1]
nMembers = amembers(aContainerObjects, oContainerObject,2)
With this
  For ix = 1 to nMembers   && Start collecting
  * Get members   
    .FillCollection(oObjectRef)  && Get members of this container
  Endfor
Endwith

PS: Full code is part of FoxyClasses. Sample is UdfObjCollector class sample.
Cetin