Obj1.FromControl("Combobox1")
Obj1.SetProperty("DropDownStyle", "DropDown")
cboKeyPress.New1(Obj1.Value, "KeyPress")
cboTextChanged.New1(Obj1.Value, "TextChanged")
Sub cboKeyPress_NewEvent
Obj1.Value = cboKeyPress.Data
keychar = Obj1.GetProperty("KeyChar")
'Msgbox(keychar, "Key press")
If Asc(keychar) = 13 Then
Obj1.FromControl("Combobox1")
Msgbox(Obj1.GetProperty("Text"), "Enter!")
End If
End Sub
Sub cboTextChanged_NewEvent
Obj1.FromControl("Combobox1")
combotext = Obj1.GetProperty("Text")
End Sub