Clipper/FiveWin - solapas de un folder

Hola compañeros:

Tengo un DIALOG con varios GET, 1 COMBOBOX y 1 FOLDER con 4 solapas que hacen referencia a los 4 arrays del COMBOBOX.

Necesito que cada vez que el usuario elija un array del COMBO el programa active la solapa correspondiente del FOLDER automaticamente.

parte de Mi codigo:

Define dialog oarti ...
......
redefine folder ofolder id 144 of oarti prompt 'SOL1 ,'SOL2','SOL3','SOL4'' dialogs ...
redefine combobox opt var pt items apt id 104 of oarti on change vsolapa()
...
activate dialog oarti

funct vsolapa
do case
case pt=apt[1]
ofolder:aEnable:={.t.,.f.,.f.,.f.}
ofolder:nOption:=1
case pt=apt[2]
ofolder:aEnable:={.f.,.t.,.f.,.f.}
ofolder:nOption:=2
case pt=apt[3]
ofolder:aEnable:={.f.,.f.,.t.,.f.}
ofolder:nOption:=3
case pt=apt[4]
ofolder:aEnable:={.f.,.f.,.f.,.t.}
ofolder:nOption:=4
endcase
ofolder:refresh()
oarti:refresh()
return .t.

Con ello consigo que cambie la solapa PERO manualmente, es decir, tengo que pinchar en cualquier solapa para que se active solo la que quiero.

¿ Que me falta ?
Mil gracias por todo

LORENZO

No utiilces la data ;;nOption, debes utilizar el metodo SETOPTION()

oFolder:SetOption(1)

Y asunto arreglado.

Perfecto !! exactamente lo que quería....

Eres un verdadero maestro, Gabriel

Exite alguna clase Tfolder mejorada y que la pueda implementar en mi aplicación ??

Mil gracias por todo!
LORENZO