LOCAL oFrm as Frm oFrm = CREATEOBJECT('Frm') oFrm.Show(1) RETURN DEFINE CLASS frm AS form Top = 0 Left = 0 Height = 209 Width = 261 Caption = "Form1" WindowType = 1 listvalue = 10 Name = "Frm" ADD OBJECT list1 AS listbox WITH ; RowSourceType = 6, ; RowSource = "ListData", ; Value = 1, ; ControlSource = "ThisForm.Listvalue", ; Height = 132, ; Left = 24, ; Top = 36, ; Width = 204, ; Name = "List1" PROCEDURE Load LOCAL lcSafety lcSafety = SET('Safety') SET SAFETY OFF CREATE TABLE ListData (Field1 C(5)) FOR x = 65 TO 90 INSERT INTO ListData (field1) VALUES (CHR(x)) ENDFOR SET SAFETY &lcSafety ENDPROC *!* PROCEDURE List1.When *!* RETURN ThisForm.Enabled *!* ENDPROC ENDDEFINE