This.Value = This.DisplayValueI 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