Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyImage As Bitmap

If fd1.ShowDialog() = DialogResult.OK Then

            MyImage = New Bitmap(fd1.OpenFile())

            PB1.SizeMode = PictureBoxSizeMode.StretchImage

            PB1.Image = CType(MyImage, Image)

            Label1.ForeColor = Color.BlueViolet

            Label1.Text = "Do you want to choose another Picture?"

End If

End Sub

Double click the exit button to add the following code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()

End Sub