la funzione Rnd:

codice:
Dim n as Integer
n = Int(rnd*11)
Boolean