PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT list1 AS listbox WITH ; Height = 229, ; Left = 12, ; Top = 12, ; Width = 349, ; MoverBars = .T., ; Name = "List1" PROCEDURE list1.Init OPEN DATABASE (HOME(2) + "\DATA\testdata") USE products SCAN THIS.AddItem(eng_name) ENDSCAN ENDPROC ENDDEFINE>Thanks, Sergey.