[Risolto] Leggere un file di testo.. non funziona!

[MirkoWeb]

Salve ragazzi, sono nuovissimo di Gambas e di questo forum...
Vi dico subito che mi sono già immerso nelle ricerche nel forum e nella documentazione ufficiale, ma nulla, non va!
Vi spiego... Dovrei leggere un file (tale file si chiama "list") ed è un file testuale... Il fatto è che arrivo a leggerlo, ma mi legge solo la prima riga anche se il file è ciclato.. Vi posto il codice, che a mio parere è corretto:

Codice: [Seleziona]

PUBLIC SUB _new()
DIM hFile AS File
DIM sLine AS String
hFile = OPEN "/home/mirko/Scrivania/list" FOR INPUT
WHILE NOT Eof(hFile)
  LINE INPUT #hFile, TextArea1.Text
WEND
CLOSE #hFile
END

Grazie mille a tutti!
PS:Fantastico forum di supporto

Edit:
Probabilmente ho capito il mio errore:
Se uso print, vengono stampate tutte le righe, probabilmente il while non AGGIUNGE nuove linee ma le sostituisce..
Come consigliate di procedere per aggiungere nuove linee?
Non posso fare (domanda retorica) una cosa simile?

Codice: [Seleziona]

PUBLIC SUB _new()
DIM hFile AS File
DIM sLine AS String
hFile = OPEN "/home/mirko/Scrivania/list" FOR INPUT
WHILE NOT Eof(hFile)
  LINE INPUT #hFile, sLine
  TextArea1.text = TextArea1.Text + sLine
WEND
CLOSE #hFile
END

? (notare tale linea: TextArea1.text = TextArea1.Text + sLine )

Ri-Edit
Risolto da solo immergendomi ancora di più nelle ricerche ho trovato questa:

http://www.gambas-it.org/smf/index.php?topic=800.0

Grazie a tutti!!

Mirko