Power Builder - problemas con cambio de resolucion

Buenas, estoy peleandome hace rato con este codigo para cambiar automaticamente la resolucion de la pantalla y no logro hacerlo andar, estoy en win xp y pb 8. he creado el objeto ole_1 en la ventana y el siguiente codigo lo tengo en el evento open de la misma ventana. Gracias


// Obtener resolucion y color actual de la pantalla
long ll_resActualHor, ll_resActualVer, ll_resActualColor

ll_resActualHor=ole_1.Object.resActualHor
ll_resActualVer=ole_1.Object.resActualVer
ll_resActualColor=ole_1.Object.resActualColor

MessageBox("Actual", String(ll_resActualHor)+","+String(ll_resActualVer) &
+","+String(ll_resActualColor))

// Cambiar resolucion y color de la pantalla
Integer li_resHor, li_resVer, li_resColor

li_resHor=800
li_resVer=600
li_resColor=32// Puede ser: 8,16,24,32

//Pasamos por referencia
ole_1.Object.ChangeResol(800,600,32)
//ole_1.Object.ChangeResol(li_resHor,li_resVer,li_resColor)

MessageBox("Actual1", String(ll_resActualHor)+","+String(ll_resActualVer) &
+","+String(ll_resActualColor))

hola prueba de poner el script en un boton y prueba de cambiar el valor 32 por
16 en li_rescolor

y cambia la linea por las variables, aunque deberia funcionar igual

ole_1.Object.ChangeResol(li_resHor,li_resVer,li_resColor)

saludos desde argentina

Hola.

Que error tienes..
o no te aplica los cambios. ??
Ese componente el pantalla.ocx en XP y 2000
funciona bien. , lo regustrastes bien ??

comentanos que te sucede

Saludos desde Argentina

Puedes hacerlo utilizando las API,s de windows te evitarías utilizar el .ocx .

El error que me da, es que no hace nada, ni siquiera me toma la resolucion nueva.
lo registre, todo bien (con el regsvr32.exe creo que es), pero no me hace absolutamente nada.

Suerte y gracias