LPARAMETERS nKeyCode, nShiftAltCtrl 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 thisform.oWeb.Navigate(This.DisplayValue) ENDIFSergey thank you very much for the feedback.