Dim openDialog As New OpenFileDialog()
Dim theImage As Image
'Set dialog properties
openDialog.Filter = "Bitmaps (*.bmp)|*.bmp|All Files (*.*)|*.*"
'Show dialog and test result
If (openDialog.ShowDialog() = DialogResult.OK) Then
'User chose a file
'Load the image
theImage = Image.FromFile(openDialog.FileName)
'Do something with the image
Else
'User chose chose cancel - do something else
End If