[ALBRNS]

السلام عليكم

جرب كتابة الكود بالشكل التالي

PHP كود :

Private Sub Command1_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "txt |*.txt|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
List1.AddItem CommonDialog1.FileName
End If
Dim A As Integer
A = FreeFile
Open (List1.List(0)) For Input As #A
Text1.Text = Input$(LOF(A), A)
Close #A
End Sub 


ومن خصائص الــــ Text غير MultiLine الي True

بالتوفيق