Keeping transparency of a clipart whn being drag & drop from our library to COREL Designer &

    Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
        Dim img As Image
        Dim sFile() As String
        Dim i, j As Integer
        Dim itm As New ListViewItem

        Try
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then ' Image File being dropped

                sFile = e.Data.GetData(DataFormats.FileDrop)

                For j = 0 To sFile.Length - 1
                    Dim reader As Aurigma.GraphicsMill.Codecs.FormatReader = _
                        Aurigma.GraphicsMill.Codecs.FormatManager.CreateFormatReader(sFile(j))
                    Dim bitmap As New Aurigma.GraphicsMill.Bitmap

                    For i = 0 To reader.FrameCount - 1
                        Dim frame As Aurigma.GraphicsMill.Codecs.Frame = reader.LoadFrame(i)

                        frame.GetBitmap(bitmap)
                        frame.Dispose()

                        PictureBox1.Image = bitmap.ToGdiplusBitmap
                        itm.ImageIndex = ImageList1.Images.Count
                        itm.Text = "Y bomasse toé"
                        ImageList1.Images.Add(bitmap.ToGdiplusBitmap)
                        ListView1.Items.Add(itm)
                        ListView1.Items(0).Selected = True

                    Next

                    bitmap.Dispose()
                    reader.Dispose()
                Next

            ElseIf e.Data.GetDataPresent(DataFormats.Dib) Then  ' Image dragged from Corel Designer

                'HandleDropOrPaste(e.Data)
                Dim stm As MemoryStream = e.Data.GetData(DataFormats.Dib)
                'reader = New TiffReader(stm)

                Dim reader As Aurigma.GraphicsMill.Codecs.FormatReader = _
                    Aurigma.GraphicsMill.Codecs.FormatManager.CreateFormatReader(stm)

                Dim bitmap As New Aurigma.GraphicsMill.Bitmap

                For i = 0 To reader.FrameCount - 1
                    Dim frame As Aurigma.GraphicsMill.Codecs.Frame = reader.LoadFrame(i)
                    frame.GetBitmap(bitmap)
                    frame.Dispose()

                    'bitmap.Save("c:\frame_" & i & ".jpg")
                    PictureBox1.Image = bitmap.ToGdiplusBitmap

                    itm.ImageIndex = ImageList1.Images.Count
                    itm.Text = "Y bomasse toé"
                    ImageList1.Images.Add(bitmap.ToGdiplusBitmap)
                    ListView1.Items.Add(itm)
                    ListView1.Items(0).Selected = True



                Next

                bitmap.Dispose()

                reader.Dispose()


            End If

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
        End Try
    End Sub