Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles OpenFileDialog1.FileOk
PictureBox1.Load(OpenFileDialog1.FileName)
End Sub
Private Sub OpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles OpenFile.Click
OpenFileDialog1.ShowDialog()
End Sub
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)