سلام

کد استفاده از openfiledialog :

Dim path As String

        Dim fo As New OpenFileDialog

        fo.Filter = "Image Files|*.bmp"

        fo.FilterIndex = 1

        fo.ShowDialog()

        If (fo.FileName = Nothing) Then

            MsgBox("عکسی انتخاب نشد !.")

        Else

            path = fo.FileName

            Using sr As New StreamReader(fo.FileName)

                PictureBox1.ImageLocation = path

            End Using

        این کد برای انتخاب عکس و بارگزاری عکس بر روی picturebox می باشد