Dim cnv As New System.Windows.Controls.Canvas
        cnv.Width = 600
        cnv.Height = 600
        cnv.Background = System.Windows.Media.Brushes.White
        cmd.CommandText = "SELECT v.foto, kv.koo_left, kv.koo_top"
        red = cmd.ExecuteReader
        While red.Read()
            Dim imgas As New System.Windows.Controls.Image
            Dim btm As New System.Windows.Media.Imaging.BitmapImage
            btm.BeginInit()
            btm.UriSource = New Uri(Server.MapPath("Images") & "/" & red.Item(0).ToString(), UriKind.Relative)
            btm.EndInit()
            'imgas.Stretch = System.Windows.Media.Stretch.Fill
            imgas.Source = btm
            System.Windows.Controls.Canvas.SetLeft(imgas, red(2))
            System.Windows.Controls.Canvas.SetTop(imgas, red(3))
            cnv.Children.Add(imgas)
        End While
        red.Close()
        Dim bmp As New System.Windows.Media.Imaging.RenderTargetBitmap(600, 600, 96, 96, System.Windows.Media.PixelFormats.Default)
        bmp.Render(cnv)
        Dim bmpe As New System.Windows.Media.Imaging.PngBitmapEncoder
        bmpe.Frames.Add(System.Windows.Media.Imaging.BitmapFrame.Create(bmp))
        Dim stm As IO.FileStream = IO.File.Create(Server.MapPath("Images") & "/" & "test.png")
        bmpe.Save(stm)
        stm.Close()
        stm.Dispose()