Dim oPictureFile As New OpenFileDialog
With oPictureFile
.InitialDirectory = "C:\"
.Filter = "All Files|*.*|JPEGs|*.jpg|Bitmaps|*.bmp|GIFs|*.gif"
.FilterIndex = 2
End With
If oPictureFile.ShowDialog() = DialogResult.OK Then
With pbFotografia
.Image = System.Drawing.Image.FromFile(oPictureFile.FileName)
.SizeMode = PictureBoxSizeMode.StretchImage
.BorderStyle = BorderStyle.None
End With
End if