PUBLIC oform1 CLOSE DATA oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 416 Width = 399 DoCreate = .T. Caption = "Form1" nlistindex = 1 Name = "Form1" DIMENSION afieldlist[1] ADD OBJECT list1 AS listbox WITH ; RowSourceType = 5, ; RowSource = "Thisform.aFieldList", ; Height = 216, ; Left = 24, ; MoverBars = .F., ; MultiSelect = .F., ; Top = 12, ; Width = 336, ; IntegralHeight = .T., ; Name = "List1" PROCEDURE list1.Init USE (HOME(2) + "\data\products") = AFIELDS(Thisform.aFieldList) This.Requery() ENDPROC ENDDEFINE>Okay, this code creates an array, loads it and displays the contents.