codice:
   Dim Numero
   Randomize Timer
   Numero = Fix(Rnd() * 10000000000#)
Rnd restiutuisce un numero decimale compreso tra 0 e 1
Randomize Timer consente a Rnd di estrarre questo numero con l'aiuto del timer, altrimenti ti restituisce sempre lo stesso numero.