Hi Hugo,

try with a ComboBox.

Fabio

>>Hi All
>>Releasing a form with a lots of object(i.e. 2000) takes a while (5-10 sec)
>>It looks to me that I'm missing something here because in VB works at once.
>>
>>Thanks in advance
>
>Yes, for 2000 objects it takes my test program 3.5 seconds
>
>

>
>local loForm, lnStart
>
>lnStart = Seconds()
>loForm = Createobject('TestForm', 2000)
>lnCreatedIn = Seconds() - lnStart
>loForm.Show(1)
>lnStart = Seconds()
>loForm.release()
>activate screen
>clear
>? 'Created in: ', lnCreatedIn
>? 'Destroyed in: ', Seconds() - lnStart
>
>define class TestForm as Form
>	add object cmdExit as CommandButton with ;
>		Caption = 'Exit', ;
>		Left = 0, ;
>		Top = 0
>		>	procedure cmdExit.Click()
>	thisform.Hide()
>	endproc
>	>	procedure init(tnObjects)
>	local lnObjects, lnObject, lcName
>	>	lnObjects = Iif(Vartype(tnObjects) = 'N', tnObjects, 10)
>	for lnObject = 1 to lnObjects
>		lcName = 'Object' + Transform(lnObject, '@L 999999999')
>		this.AddObject(lcName, 'TextBox')
>	next i
>enddefine
>