Not quite clear, how do you "try to add new property at myform as my_fields(1,0)".

Anyway, it should be similar to this:

*Form.init
use (your_table)
this.AddProperty("my_fields(1)",.f.)
this.addproperty("select_file", ALIAS())
=AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))

>hi all,
>
>i try to copy all buttons,text, methods and property to new form
>
>i get error messag
>"my_fields" is not an array
>at this code
>
>i try to add new property at myform as my_fields(1,0),
>but i add new property only as my_fields.
>
>

>IF NOT EMPTY(ThisForm.select_file)
>   USE (ThisForm.select_file)
>   AFIELDS(ThisForm.my_fields,JUSTSTEM(ThisForm.select_file))&& error at this line
>   ThisForm.combo1.RowSourceType = 5
>   ThisForm.combo1.RowSource = [ThisForm.my_fields]
>   ThisForm.combo1.Value     = ThisForm.my_fields[1]
>   ThisForm.Combo1.Interactivechange()
>   ThisForm.text3.value = JUSTSTEM(ThisForm.select_file)
>ENDIF
>

>thanks,