[VB6] Visualizzare un file pippo.txt

[iguana13]

La prossima volta posta sul forum apposito

Ecco il codice:

[non testato]
sub visualizza(nomefile as string, text as textbox)
dim tmp as string
Dim filenum as integer
filenum = freefile
open nomefile for input as #filenum
do until eof(filenum)
    line input #filenum, tmp
    text = text & tmp & vbnewline
loop
end sub