Imports System.IO

Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

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

    Dim myStream As Stream
    Dim OpenFileDialog1 As New OpenFileDialog()

    With OpenFileDialog1
      .InitialDirectory = "c:\"
      .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
      .FilterIndex = 1
      .RestoreDirectory = True

      If .ShowDialog() = DialogResult.OK Then
        myStream = .OpenFile()
        If Not (myStream Is Nothing) Then
          Me.Text = .FileName

          Dim myReader As StreamReader = New StreamReader(myStream)
          Dim i As Integer

          ListBox1.Items.Clear()

          Do Until myReader.Peek() = -1
            ListBox1.Items.Add (myReader.ReadLine)
            i += 1
          Loop

          myStream.Close()
        End If
      End If
    End With
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class