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