L'impiccato

[ciuro89]

Ciao a tutti,
io sto facendo il gioco dell'impiccato in Visual Basic e non mi manca molto per finire, però ho un problema:
la parola da indovinare che mi carica dal file di testo è sempre la prima! Come mai? Cosa sbaglio?
Questo è il codice:

Private Function gioca()
Dim n As Integer
Dim parole As Collection
parole = New Collection
Randomize()
Dim lettura As New StreamReader("C:\Documents and Settings\ciuro89\Desktop\Impiccato\Parole.txt")
parole.Add(lettura.ReadLine())
n = (Rnd() * (parole.Count - 1) + 1)
parolasegreta = parole.Item(n)
lettura.Close()
End Function

[alka]

Manca la versione del linguaggio utilizzata e il codice deve essere formattato usando il tag [CODE].

Leggi il Regolamento per conoscere questa ed altre regole.

[gibra]

Devi caricare tutte le parole (righe) mentre tu carichi solo la prima

Dim line as String
Do
    line = lettura.ReadLine()
    parole.Add(line)
Loop Until line Is Nothing

Randomize()
n = (Rnd() * (parole.Count - 1) + 1)
parolasegreta = CStr(parole.Item(n))

lettura.Close()
MessageBox.Show(parolasegreta)