自己做了一个可以读取txt文件的程序
Private Sub Command1_Click()
   Dim st As String, fpath As String
    If Right(Dir1.Path, 1) = "\" Then
        fpath = Dir1.Path & File1.FileName
    Else
        fpath = Dir1.Path & "\" & File1.FileName
    End If
    Form2.Text1.Text = ""
    Open fpath For Input As #1
    Do While Not EOF(1)
        Line Input #1, st
        Form2.Text1.Text = Form2.Text1.Text + st + vbCrLf
    Loop
    Close #1
Form2.Show
End Sub
但是运行时发现如果读取的txt文件较小的话还是可以正常显示到text控件上的
但是如果txt文件较大时，，vb就没法读取，，甚至会卡住
所以想问大神看看有没有什么的办法能让较大的txt文件也能正常显示到VB的text或者是其他更好的控件上，

问题解决了。。谢了