LOCAL o o = CREATEOBJECT('_form') o.Show(1) o = null RETURN DEFINE CLASS _form AS form Height = 250 Width = 240 DataSession = 2 ADD OBJECT list1 AS listbox WITH ; ColumnCount = 2, ; ColumnWidths = "75,200", ; RowSourceType = 2, ; RowSource = "", ; Height = 200, ; Left = 10, ; Top = 10, ; Width = 220, ; Name = "List1" PROCEDURE INIT CREATE CURSOR crsForms (FormName C(10), Descript C(10)) INSERT INTO crsForms VALUES ('1', 'Form 1') INSERT INTO crsForms VALUES ('2', 'Form 2') INSERT INTO crsForms VALUES ('21', 'Form 21') INSERT INTO crsForms VALUES ('5', 'Form 5') INSERT INTO crsForms VALUES ('12', 'Form 12') INSERT INTO crsForms VALUES ('125', 'Form 125') INSERT INTO crsForms VALUES ('25', 'Form 25') INSERT INTO crsForms VALUES ('121', 'Form 121') INSERT INTO crsForms VALUES ('50', 'Form 50') INSERT INTO crsForms VALUES ('11', 'Form 11') INDEX ON VAL(FormName) TAG FormName SET ORDER TO FormName THIS.List1.RowSource = "crsForms" ENDPROC PROCEDURE Activate THIS.List1.SetFocus() ENDPROC ENDDEFINE