Imports System
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            For Each line As String In File.ReadAllLines( _
            openFileDialog1.FileName)
                ListBox1.Items.Add(line)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Application.Exit()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            For Each line As String In File.ReadAllLines( _
            openFileDialog1.FileName)
                ListBox2.Items.Add(line)
            Next
        End If
    End Sub
End Class