palabras al azar

[oskar5]

hola

quiero mostrar en un label una palabra pero no siempre la misma algo asi como una ruleta q de repende de una lista grande me saque una palabra y la ponga en el label


tengo este codigo para realizar busquedas al azar de numeros y ponerlos en labels, pero quiero hacerlo con palabras como le hago?? jiji

Private Sub Azar() ' creamos un procedimiento llamado Azar
N1= int(Rnd * 10) + 1 ' elige un número aleatorio de 1 a 10
N2= int(Rnd * 10) +1
N3= int(Rnd * 10) +1
If N1 <> N2 And N2 <> N3 And N1 <> N3 then 'controla que no haya 2 números iguales. Usamos los operadores <> y And.
Label1.caption = N1 ' volcamos los valores de las variables en las labels.
Label2.caption = N2
Label3.caption = N3
Else
Exit Sub ' Si uno de los números se repite sale de la Rutina y vuelve a llamarse al procedimiento Azar desde el Botón 1.
End If
End Sub



gracias espero su ayuda