Dim DT As New Data.DataTable
            DT.Columns.Add("Image", System.Type.GetType("System.Byte[]"))

            For Each X As System.Web.Security.MembershipUser In All_Users
                Dim DR As Data.DataRow = DT.NewRow
                If Not (PR.GetPropertyValue("image") Is Nothing) Then
                    Dim M1 As New IO.MemoryStream()
                    CType(PR.GetPropertyValue("Image"), System.Drawing.Bitmap).Save(M1, Drawing.Imaging.ImageFormat.Gif)
                    DR("Image") = M1
                End If
                DT.Rows.Add(DR)
            Next

                    M1.Position =  0 
                    DR("Image") = M1.ToArray