Power Builder - Scroll en las DWs

Hola que tal amigos foristas me encontraba analizando un codigo que encontre en una pagina amiga para nosotros lo programadores de PB y vi algo que queria probar el codigo que a continuacion les pongo sirve para evitar el zoom al tener presionado el control y el rueda scroll del raton pero le encontre un error que al dar click algunas veces en una datawindow se cuelga y sale de PB lo probe en PB 70 no se si tambien sucede lo mismo en otras versiones:

CONSTANT integer WM_MOUSEWHEEL = 522
IF message.number = WM_MOUSEWHEEL AND KeyDown (KeyControl!) THEN
message.processed = TRUE
RETURN 1
END IF

Si alguien tiene algo mejorado con respecto al scroll no dude en enviarme a mi email, se lo agradeceria mucho