Public Class

Private sub click

try

OpenFileDialog1.Filter = "tylko texty|*.txt"

OpenFileDialog1.ShowDialog()

'FileOpen(1, "c:\tkm\1.9\osoby.txt", OpenMode.Input)

FileOpen(1,OpenFileDialog1.FileName, OpenMode.Input)

Me.Text = "Mój notatnik" & OpenFileDialog1.FileName

TextBoxOkno.Clear()

Do While Not EOF(1)

TextBoxOno.Text = TextBoxOkno.text & LineInput(1) &vbCrLf

Loop

FileClose(1)

Catch ex As Exception

MsgBox(ex.Message)

End try

end sub

end class