No KEYPRESS da combo coloque:

*
* QuickFill Combo:KeyPress()
* Author: 			Ken Weber
* Last Modified:	5/20/1999
*

LPARAMETERS nKeyCode, nShiftAltCtrl

if between(nKeyCode, 32, 122)
	for x = 1 to this.ListCount
		if upper(subs(this.list(x), 1, this.selstart+ 1)) = ;
		  upper(subs(this.text, 1, this.selstart)+chr(nKeyCode))
			nCurPos = this.selstart + 1
			this.Value = this.list(x) 
			this.SelStart = nCurPos
			this.SelLength = len(allt(this.list(x))) - nCurPos
			nodefault
			exit
		endif
	next x
endif

Este código está na classe CBOSRCH dum tal de 'Ken Weber' que, uma vez achei por aí - se no FoxBrasil não lembro.