If openFileDialog1.ShowDialog() = DialogResult.OK Then
	Dim oku As New StreamReader(openFileDialog1.FileName)
	Dim satir As String = oku.ReadLine()
	While satir IsNot Nothing
		listBox1.Items.Add(satir)
		satir = oku.ReadLine()
	End While
End If