>>

>>llfound = INDEXSEEK(lccid)
>>
>>IF llFound AND lcCID <> gCID
>>	=msgfrm(SPACE(4) + 'User ID ' + lcCID + ' already exists.' + ;
>>		CHR(10) + SPACE(10) + 'Re-enter or Revert.' ;
>>		,'0',,'S','Existing field value',0,gnMsgWait)
>>	KEYBOARD '{LEFTARROW}'
>>	RETURN
>>ENDIF
>>

>>I used debug to see the values
>Sorry
>

KEYBOARD '{LEFTARROW}' should be Thisform.CID1.Setfocus

Calling SetFocus from another control GotFocus doesn't look kosher to me.