Sistema para palabras aleatorias...

[Pripple]

Hola, soy nuevo aca, bueno no importa, queria saber como hacer para por ejemplo, tengo un listbox y ahi tengo miles de palabras, quiero que vaya poniendo cada cierto tiempo, una palabra del listbox a un textbox eliminando la del listbox para no repetirla..

Ayudenme

[-SharK_90-]

Inserta los siguientes controles:
• 1 CommandButton con la propiedad name : "cmdInicio"
• 1 TextBox con la propiedad name: "txt1"
• 1 ListBox con la propiedad name: "lstPalabras"
• 1 Timer con la propiedad name: "tmr1"

Escribí el siguiente código:

Option Explicit

Private Sub cmdInicio_Clic k()
    tmr1.Enabled = True
End Sub

Private Sub Form_Load()
    tmr1.Enabled = False
    cmdInicio.Capt ion = "Iniciar proceso"
End Sub

Private Sub tmr1_Timer()
Dim intX As Integer
    Randomize
    intX = (Rnd * (lstPalabras.Li stCount - 1) + 1)
    txt1.Text = lstPalabras.Li st (intX - 1)

End Sub

Salu2, cambia de palabras cada 1 seg...

[Pripple]

Hola, gracias, me funciono. Otra pregunta parecida con el tema, ¿Como hago para que salgan palabras mescladas entre si en un mismo textbox o tambien pçalabras mescladas con letras o numeros?

me ayudas?