چگونه تمام فایل را بخوانیم و در text box نشان دهیم

[atagah]

چگونه در ویژوال بیسیک تمام فایل را بخوانیم و در text box نشان دهیم

[AbbasVB]

Dim Data As String
Open "c:\a.txt" For Binary As #2
While EOF(2) = False
data = Input(999999, #2)
DoEvents
Wend
Close #2
Text1.Text = Data

[atagah]

Dim Data As String
Open "c:\a.txt" For Binary As #2
While EOF(2) = False
data = Input(999999, #2)
DoEvents
Wend
Close #2
Text1.Text = Data

اینکه کار نکرد

[AbbasVB]

اینکه کار نکرد
کار می کنه
مگه میشه؟
توی یه پروژه گذاشتم