Código:
lo que hace es hacer mover las letras de un label estilo MARQUESINA....strText = (Right$(strText, Len(strText) - 1)) & Left$(strText, 1) ScrollText = strText
Saludos