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
*!*	                 lnStart=this.selstart
*!*	                 this.displayvalue=this.text
*!*	                 this.selstart=lnStart
  ?'InterActiveChange fires'
  ?'THIS.Displayvalue returns: ',THIS.Displayvalue
  ?'THIS.Text returns: ',THIS.Text

Endproc
Enddefine