Dim objReader As System.IO.StreamReader
        objReader = New System.IO.StreamReader(Application.StartupPath + "\txt\蔬菜检测\目录.txt", System.Text.Encoding.GetEncoding("GB2312"))
        Dim sLine As String = ""
        Dim arrText As New ArrayList()
            Do
            sLine = objReader.ReadLine()
            If Not sLine Is Nothing Then
                arrText.Add(sLine)
            End If

        Loop Until sLine Is Nothing

        objReader.Close()
       

        Label1.Text = arrText(0)
        Label2.Text = arrText(1)
        Label3.Text = arrText(2)
        Label4.Text = arrText(3)
        Label5.Text = arrText(4)
        Label6.Text = arrText(5)



为什么label的显示内容是一个个出来 而不是一下子都出来的，如何加快速度  ，谢谢！