文本读取指定行的类(vb.net)

Imports  System.Data.OleDb
Imports  System.IO
Imports  Microsoft.VisualBasic

Public   Class mStreamReader Class mStreamReader
    Inherits StreamReader
    Public Sub New()Sub New(ByVal path As String)
        MyBase.New(path)
    End Sub

    Public Function ReadLineAt()Function ReadLineAt(ByVal line As Integer) As String

        For i As Integer = 1 To line
            If i = line Then
                Return MyBase.ReadLine()
            Else
                MyBase.ReadLine()
            End If
        Next
        Return String.Empty
    End Function
End Class