Define Class cbobase As combobox BoundTo = .T. DisplayCount = 15 *-- Save original value of _INCSEEK in SetCombo (called from combo's GotFocus) so it can be restored in LostFocus...aid to incremental searching noldincseek = 0 Name = "cbobase" *-- Used to hold RowSource when the RowSourceType is 5-Array Dimension acontents[1] *-- Sets _INCSEEK if incrementalSearch = .T. and selects on entry correctly Procedure GotFocus With This .noldincseek = _Incseek If .IncrementalSearch *** Set interval of _INCSEEK high enough if we are using VFP's _Incseek = 2.5 Endif Endwith Endproc Procedure LostFocus _Incseek = This.noldincseek Endproc Enddefine