01.Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
02.
03. Try
04. Dim digiImage As FileDialog = New OpenFileDialog()
05. digiImage.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"
06.
07. If digiImage.ShowDialog() = DialogResult.OK Then
08.
09. imgName = digiImage.FileName
10. Dim newimg As New Bitmap(imgName)
11.
12. PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
13. PictureBox1.Image = DirectCast(newimg, Image)
14.
15.
16.
17. End If
18.
19. digiImage = Nothing
20. Catch ae As System.ArgumentException
21. imgName = " "
22. MessageBox.Show(ae.Message.ToString())
23. Catch ex As Exception
24. MessageBox.Show(ex.Message.ToString())
25. End Try
26. End Sub
