Power Builder - SCROLL DEL MOUSE

Hola amigos del foro quiero compartir con ustedes este codigo para evitar el zoom que se originan al presionar la tecla control con el scrooll o la rueda del mouse bueno este codigo va en el evento other del DW en la que quieres evitar dicho zoom, ademas lo comparto para mejorarlo es que encontre una falla en este codigo a ver si alguno de ustedes la puede solucionar me pase la falla se produce cuando doy muchos clik en la DW en la que puse este codigo.

CONSTANT integer WM_MOUSEWHEEL = 522

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

IF message.number = WM_MOUSEWHEEL THEN
message.processed = TRUE
RETURN 1
END IF

Les Agradezco su colaboracion.