Sorry, I was offline for a couple of days, code for LoadCombo() event is

LOCAL lnselect,lnk
lnselect=SELECT()
lnk=0

IF THIS.lCodeAtFront
  THIS.BOUNDCOLUMN=1
  IF THIS.Parent.Class<>"Column"
    THIS.COLUMNWIDTHS=ALLTRIM(STR(THIS.WIDTH-12))+",150"
  ENDIF
  THIS.nCodeColumn=1
  THIS.nDesColumn=2
ENDIF

DIMENSION THIS.aItems[1,3]
THIS.aItems[1,THIS.nCodeColumn]=SPACE(THIS.Codewidth)
THIS.aItems[1,THIS.nDesColumn]="Unknown"
THIS.aItems[1,3]=999

IF THIS.AllowUnknown
  lnk=lnk+1
ENDIF

IF RIGHT(THIS.MasterfileId,THIS.nCodeColumn)="*"
  THIS.MasterfileId=STRTRAN(THIS.MasterfileId,"*","")
  THIS.lUseText=.T.
ELSE
  THIS.lUseText=.F.  
ENDIF

SELECT 0
USE ppmfil AGAIN ORDER mkey ALIAS mCombo
IF !ISBLANK(THIS.mFilter)
  lcFilter="SET FILTER TO "+THIS.mFilter
  &lcFilter
ENDIF
LOCATE
IF SEEK(THIS.MasterfileId)
  SCAN FOR !ISBLANK(code) WHILE FileId=THIS.MasterfileId
    lnk=lnk+1
    DIMENSION THIS.aItems[lnk,3]
    THIS.aItems[lnk,THIS.nCodeColumn]=Left(code,THIS.CodeWidth)
    THIS.aItems[lnk,THIS.nDesColumn]=IIF(!THIS.lUseText,description,text1)
    THIS.aItems[lnk,3]=value1    
  ENDSCAN
ENDIF
USE

=ASORT(THIS.aItems,THIS.nCodeColumn)

IF THIS.AllowNewItem
  lnk=lnk+1
  DIMENSION THIS.aItems[lnk,3]
  THIS.aItems[lnk,THIS.nCodeColumn]=REPLICATE("+",THIS.Codewidth) 
  THIS.aItems[lnk,THIS.nDesColumn]="New Item"
  THIS.aItems[lnk,3]=998  
ENDIF

SELECT (lnselect)

=ASORT(THIS.aItems,3)

*) This is where I have tried to set the combo to top
IF EMPTY(THIS.Value)
  THIS.ListIndex=1
ENDIF

THIS.NUMBEROFELEMENTS=ALEN(THIS.aItems)

Regards


Gary.