خواندن تمام فایل متنی ...

[sefati]

سلام دوستان . من میخواستم تمام یک فایل متنی ( txt ) رو بخونم و تمامشو بیارم رو یک لیبل . چی کار باید بکنم ؟
البته از eof استفاده کردم ولی فقط خط اول رو می خونه .

[m.4.r.m]

Public FS As New FileSystemObject
Public St As TextStream
Private Sub Command1_Click()
Set St = FS.OpenTextFile("C:\1.txt", ForReading, True, TristateUseDefault)
Label1.Caption = St.ReadAll
End Sub