[VB6] Lettura file e andare a capo ad ogni riga

[symonx80]

Ciao, come faccio a leggere un file e a mostrare a video i dati letti?
Vorrei ch ad ogni riga del mio file andasse a capo anche il testo mostrato a video ma il codice seguente che ho provato non mi da quello che cerco, cosa sbaglio?

Dim testo As String
    Open PathFile For Input As #3
'per ogni linea del file aggiorno la mia stringa finale 'testo'
    Do
        Line Input #3, linea
        testo = testo & vbCrLf & linea
    Loop Until EOF(3) = True
    Close #3
    TxtLog.Text = testo

[symonx80]

Modificare la proprietà

Multiline = true

..

[Luciano79]

Originariamente inviato da symonx80
Modificare la proprietà

Multiline = true

..

testo = testo & vbCrLf & linea

questa operazione può richiedere molto tempo, perchè ogni volta viene creata una nuova stringa sempre più lunga. Puoi farlo in un unico passaggio...

Dim testo As String
Open PathFile For Binary As #3
testo=space(lof(3))
get #3,,testo
Close #3
TxtLog.Text = testo