Originariamente inviato da Pieruccio
Prova cosi:
Private Sub mnuFileApri_Click()
Dim myfile As String
Dim Contenuto As String
Dim f As Integer
f = FreeFile
myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
Open myfile For Input As f
Do While Not EOF(f)
Line Input #f, Contenuto
txtCorpo.Text = txtCorpo.Text & Contenuto & vbCrLf
Loop
Close #f
end sub
:metallica :metallica

funge!!! grazie 1000!!