Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofdMemPic.Filter = "jpg|*.jpg"
If ofdMemPic.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Else
dim partPic As String = ""
partPic = ofdMemPic.FileName
PictureBox1.ImageLocation = partPic
End If
End Sub