Oppure
CD1.Filter = "Text Files|*.txt" CD1.ShowOpen NomeDelTesto = CD1.FileName Open NomeDelTesto For Output As #1 Text1.Text = Input(LOF(1), #1) Close #1 Form1.Caption = NomeDelTesto Text1.SelStart = Len(Text1.Text)
Text1.Text = Input(LOF(1), #1)