estrazione casuale di numeri

[netgost]

Ciao,
Ho bisogno che ad un click su di un pulsante il programma mi estragga un numero a caso da 1 a 40

[Kylnas]

Originariamente inviato da netgost
Ciao,
Ho bisogno che ad un click su di un pulsante il programma mi estragga un numero a caso da 1 a 40

Dovrebbero esserci le funzioni:
Randomize
e
Rnd

La prima dovrebbe servire per inizializzare il creatore random di numeri, mentre il sencondo lo crea.

[ale500]

Dim MyValue
Randomize
MyValue = CInt((40 * Rnd) + 1)