Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ret As DialogResult
Dim img As Image
ret = OpenFileDialog1.ShowDialog()
If (ret = Windows.Forms.DialogResult.OK) Then
PictureCaddy = OpenFileDialog1.FileName
With PictureBox1
img = Image.FromFile(OpenFileDialog1.FileName)
.Image = img
End With
End If
End Sub