Olá Fabiano
Veja a 'Marretinha' que fiz para este problema:
lcValores = thisform.list1.RowSource
lTamanhoTotal = LEN(lcValores)
if(LEFT(lcValores,1)=='\')
MESSAGEBOX("Item 1 desabilitado")
endif
lcValoresAnteriores = SUBSTR(lcValores,1,ATC(",",lcValores))
lnTamanhoAnteriores = LEN(lcValoresAnteriores)
FOR i = 0 TO thisform.list1.ListCount
lcAtual = SUBSTR(lcValores,lnTamanhoAnteriores + 1,IIF(ATC(",",SUBSTR(lcValores,lntamanhoAnteriores+1))>0,ATC(",",SUBSTR(lcValores,lntamanhoAnteriores+1)),lTamanhoTotal))
if(LEFT(lcAtual,1)=='\')
MESSAGEBOX("Item "+ TRANSFORM(i+2) + " está desabilitado.")
ENDIF
lcValoresAnteriores = SUBSTR(lcValores,1,lnTamanhoAnteriores + LEN(lcAtual))
lnTamanhoAnteriores = LEN(lcValoresAnteriores)
ENDFOR
Espero que lhe seja útil,
[],
Fernando de Oliveira