Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim stream As New StreamReader("C:\test.txt", _

                    System.Text.Encoding.GetEncoding("Shift-JIS")) ' ストリーム作成 

        For i = 0 To 0

            TextBox1.Text = stream.ReadLine() '一行目を読み込み表示 

            If i < 1 Then

                TextBox2.Text = stream.ReadLine() '二行目を読み込み表示 

            End If

        Next

        stream.Close() '閉じる 

    End Sub

End Class