
    Protected Sub ReadImages()
        Try

            '='Dim i As Integer = CType(Me.BindingContext(Ds2, "pictures").Position, Integer)
            '='Dim arrPicture() As Byte = CType(Ds2.Tables(0).Rows(i)("Picture"), Byte())
            '='Dim ms As New MemoryStream(arrPicture)

            With PictureBox1
                '='     .Image = Image.FromStream(ms)
                .SizeMode = PictureBoxSizeMode.StretchImage
                .BorderStyle = BorderStyle.Fixed3D
            End With

            '='lblFilePath.Text = Ds2.Tables(0).Rows(i)("FileName").ToString
            '='Me.lblImageSize.Text = PictureSizeFromPictureBox(PB) & " KB "
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub