a = ""
TextBox1.Text =""
FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
TextBox1.Text =TextBox1.Text & a & vbcrlf
Loop
一次性读取
a=File.ReadAllText(Application.StartupPath() & "\file\t1.txt")
全部一次性读取
Imports System.IO
Dim a As String = File.ReadAllText(Application.StartupPath() & "\file\t1.txt")
Do While Not EOF(1)
Input(1, a)
TextBox1.Text += a
Loop