Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim fileLines() As String = IO.File.ReadAllLines("c:\1.txt") End Sub