Animacion en Titulo de Ventana

Este truco es muy bueno, lo deseo compartir con uds.

Para hacer movible el titulo de la ventana tienes que programar lo siguiente:

Evento Timer:
Char lc_caracter
lc_caracter = TITLE
TITLE = Mid ( TITLE , 2 )
TITLE = TITLE + lc_caracter

Evento Open:
Timer(0.1)