Auto ch$, i As Int, tx$
tx$ = "Bonne année"
For i = 1 To Len(tx$)
  ch$ = ch$ + "[color=#" + Hex(Rand(16777216), 6) + "]" + SubStr(tx$, i, 1) + "[/color]"
Next i
ch$ = "[b]" + ch$ + "[/b]"
Clipboard.Clear
~Clipboard.SetText(ch$)
Alert 4, "texte " + tx$ + "| en BBcode coloré aleatoirement| tranféré vers le presse papier", 1, "ok"
End