oForm = CREATEOBJECT("Form") oForm.Autocenter = .T. oForm.Addobject('combo','_combobox') oForm.combo.Visible = .T. oForm.Show() READ EVENTS DEFINE CLASS _combobox AS combobox PROCEDURE InterActiveChange ACTIVATE SCREEN ?'InterActiveChange fires' ?'THIS.Displayvalue returns: ' ??THIS.Displayvalue ENDPROC ENDDEFINE