David,

That's cool! Here is a tweaked version, to respect font selection of the label.

Thanks for sharing that with us...

dodefault()

local lcFontName, llFontBold, lnFontSize

with this
	&& save settings
	lcFontName = .fontName
	llFontBold = .fontBold
	lnFontSize = .fontSize
	
	.fontName = .label1.fontName
	.fontBold = .label1.fontBold
	.fontSize = .label1.fontSize
	
endwith

if ( empty( this.Tag ) )
   this.CurrentX = this.Label1.Left
   this.CurrentY = this.Label1.Top

   for i = 1 to len( this.Label1.Caption )
      this.ForeColor = rgb( rand() * 255, rand() * 255, rand() * 255 )
      this.Print( substr( this.Label1.Caption, i, 1 ) )
   endfor
endif

this.Tag = "first activation done"

with this
	.fontName = lcFontName
	.fontBold = llFontBold
	.fontSize = lnfontSize
endwith