PROCEDURE GetGender PARAMETERS lcGender PRIVATE lnActualWA,lnBar lnActualWA = SELECT() CREATE CURSOR cGenderPopup (todisp c(15), ccode c(1)) INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Unknown"," ") INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Male","M") INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Female","G") LOCATE FOR cGenderPopup.ccode = lcGender IF FOUND() lnBar = RECNO() ELSE lnBar = 1 ENDIF DEFINE POPUP popGender PROMPT FIELD todisp ; TITLE 'SELECT Gender' ON SELECTION POPUP popGender DEACTIVATE POPUP popGender ACTIVATE POPUP popGender BAR lnBar REST AT ROW(),COL() RELEASE POPUP popGender EXTENDED lcGender = cGenderPopup.ccode USE SELECT(lnActualWA) RETURN lcGenderIt is working fine now but it was freezing in VFP7.