Private sub form_load() 'routine relativa al caricamento del programma
dim mystring as string
open "directory\file.est" for input as #1 'apre il file
do while not eof(1)
line input #1, mystring 'salva nella variabile mystring le righe del file
list1.additem(mystring) 'aggiunge alla listbox il contenuto della variabile
loop
close #1 'chiude il file
end sub
La NOSTRA ignoranza è il LORO potere