Can anyone give me some help on how to grey out an item in a combobox. Here's the code I have so far:

LOCAL lcAlias, liProjKey, lcType

lcAlias = Alias()
liProjKey = projects.projkey

SELECT activity_type ;
FROM projects ;
WHERE projkey = liProjKey ;
INTO CURSOR curTypes

SCAN
lcType = activity_type
=Ascan(Thisform.aactivitytype,lcType,,,2)
ENDSCAN

IF !Empty(lcAlias)
Select(lcAlias)
ENDIF