•Private
Sub btnSelect_Click(...)
• Handles btnSelect.Click
• Dim textFile As
String
• OpenFileDialog1.ShowDialog()
• textFile = OpenFileDialog1.FileName
• Dim sr As IO.StreamReader
=
• IO.File.OpenText(textFile)
• lstOutput.Items.Clear()
• Do While sr.Peek <> -1
• lstOutput.Items.Add(sr.ReadLine)
• Loop
• sr.Close()
•End
Sub