Private Sub Button2_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button2.Click
Dim d As StreamReader
OpenFileDialog1.ShowDialog()
d = New StreamReader(OpenFileDialog1.FileName)
TextBox1.Text = d.ReadToEnd
FileClose()
End Sub
