>lcOldSafety = SET("Safety") >SET SAFETY OFF >ERASE Combo_test.* >CREATE FORM Combo_Test NOWAIT > oForm = _VFP.ActiveForm > oForm.AddObject("Combo1","ComboBox") > *** oForm.Combo1.Style = 2 > oForm.Combo1.DisplayValue = 1 >KEYBOARD '{CTRL+W}' >MODIFY FORM Combo_Test NOWAIT > oForm = _VFP.ActiveForm > MESSAGEBOX("The value should be 1 y NOT:"+; > STR(oForm.Combo1.DisplayValue)) >SET SAFETY &lcOldSafety >