１．テキストファイルを読込みリストボックスに表示
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'テキストファイルを読込みリストボックスに表示
    'リストボックスに水平スクロールバーを表示
    ListBox1.HorizontalScrollbar = True
    ListBox1.Items.Clear()  '一旦消去
    Dim st As New System.IO.StreamReader("..\..\Test.txt", _
                                    System.Text.Encoding.Default)
    'ファイルの最後までループ
    Do Until st.Peek = -1
        '１行づつ読込む
        ListBox1.Items.Add(st.ReadLine)
    Loop
    st.Close()     'ファイルを閉じる
End Sub