Power Builder - STATICHYPERLINK-Cambio de Color

Como hago para hacer que cambie de color el statichyperlink cuando lo señale con el mouse sin hacerle click y como hago para que tenga movimiento o animacion

Para cambiar el color de texto cuando se pasa encima el mouse el método clásico que vas a hallar en libros y páginas de PB es:

IF xpos >= st_1.X AND (xpos <= st_1.x + st_1.Width) AND &
ypos >= st_1.y AND (ypos <= st_1.y + st_1.Height) THEN
st_1.textcolor = 255
ELSE
st_1.textcolor = 0
END IF

Pero funciona muy mal o a medias. Gracias a tu pregunta, hallé otra solución increible de simple, y me pregunto, porqué no se me ocurrió antes (trataré de colocarlo en la sección código fuente). Sirve tanto para cambiar color de texto como para imágenes.

1. Script en el evento mousemove de la ventana:
//Para un StaticHyperlink
shl_1.textcolor = RGB(0,0,255)
//Para un PictureHyperlink
phl_1.PictureName="imagen1.bmp"

2. En tu control StaticHyperlink, creas un nuevo evento. Ejm.
Event Name: Mievento
Event ID: pbm_mousemove
Y pegas el siguiente script:
-------------------------------
If shl_1.pointer=' HyperLink ! ' then
shl_1.TextColor=RGB(255,0,0)
end if
-------------------------------
En tu control PictureHyperlink, creas un nuevo evento similar al anterior y pegas:
--------------------------------
If phl_1.pointer=' HyperLink ! ' then
phl_1.PictureName="imagen2.bmp"
end if
-------------------------------
Eso es todo.

(CONTINUACIÓN... POR SI ACASO)
3. Para que el texto o imagen se muestre desde el principio cuando abras tu ventana, en evento open de la ventana, debes incluir lo mismo que en el evento mousemove de la ventana es decir:
//Para StaticHyperlink
shl_1.textcolor = RGB(0,0,255)
/Para PictureHyperlink
phl_1.PictureName="ojo1.bmp"

Nota: Y para que tu texto tenga "movimiento o animación", sólo debes cambiar o añadir algunas propiedades del texto (como ser Weight, FontSize, Italic) en los anteriores tres pasos:

Ejm. Si quieres que al pasar el mouse se cambie a negrita:
shl_1.Weight = 400//Normal

Lo cambias luego a:
shl_1.Weight = 700//Negrita

Ahora si. Eso es todo.