Desabilitar todos campos formulario

PROCEDURE matos_f_formulario_consulta_desabilitar_campos(_nome_tab)
//esta em utiltarios_matos
MyWindow..Title="Consulta"
i is int = 1 //Bloqueia os Controles
nBloqueia is int = 0
_controle is string = EnumControl(MyWindow,i)
WHILE _controle<>""
    i++       
    nBloqueia=0
    IF _controle=_nome_tab THEN nBloqueia=1  // Se Controle for Tab Nao Bloqueia
    IF _controle="BTN_Cancel" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
    IF nBloqueia=0 THEN {_controle}..State = Grayed     // Bloquear esses controle
    _controle=EnumControl(MyWindow,i)   
END
i=0 // bloqueia tudo o que esta dentro do controle
_controle=""
j is int
NbPane is int = {_nome_tab}..Occurrence
TabNum is int = 0
FOR i = 1 TO NbPane
    j = 1
    _controle = Upper(EnumControl({_nome_tab}[i],j))
    WHILE _controle <> ""
        j++
        nBloqueia=0
        IF Left(_controle,11)="BTN_PROXIMO" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
        IF Left(_controle,12)="BTN_ANTERIOR" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
        IF nBloqueia=0 THEN
            {_controle}..State=DisplayOnly
            {_controle}..Color=LightBlue
        END
        _controle = Upper(EnumControl({_nome_tab}[i],j))       
    END
END
//exemplo
//http://doc.windev.com/en-US/?1000003025005&name=enumcontrol_function
//http://doc.windev.com/en-US/?3025005&name=EnumControl#wlanguage_error_ELTPARAGRAPHE000259