[VB] List Box...

[Drocchia]

Ciao a tutti...
ragazzi sapete come fare ad estrarre una riga a caso di una ListBox??

Mi spiego meglio io ho una list box con i seguenti valir per riga
1
2
3
4
5
6
spingendo un button voglio che in una txt venga uno dei 6 vaori scelti a caso!!

Come si fa??

[retiario]

1) calcolare un indice da 1 a 6 con la funzione random
2) Text1.Text = List1.Text(numero random)

[PUNTO]

Se hai una ListBox con solamente 6 numeri puoi usare la funzione Chr dopo aver estratto un numero casuale risparmiando la ListBox.

Numero = Int(6 * Rnd + 1)
Text1.Text = Chr(Numero + 48)

Altrimenti usa la proprietà List:

Numero = Int(6 * Rnd + 1)
Text1.Text = List1.List(Numero - 1)


Ciao