Hello Sergey,

>I tested your code in VFP8SP1 in it works fine. You may try to add at the

This.Value = This.DisplayValue

I have added the suggested code, and it still doesn't work :

IF nKeyCode = 13  THEN && Enter
	lExists = .F.
	FOR i = 1 TO this.ListCount 
		IF this.ListItem(i) = ALLTRIM(This.DisplayValue)
			lExists = .T.
                        EXIT
		ENDIF 
	ENDFOR 	
	IF NOT lExists 
		this.AddItem(This.DisplayValue)
	ENDIF 		
	*this.Value =this.DisplayValue   && doesn't work here either
	thisform.oWeb.Navigate(This.DisplayValue) 
  	this.Value = this.DisplayValue
ENDIF