     
   ' Get a clone of the image:
   Dim lhBmp As Long
   lhBmp = cMemDC.hBitmap
   
   ' Add to the custom image list:
   ilsCustom.Clear
   ilsCustom.IconSizeX = 128
   ilsCustom.IconSizeY = 48
   ilsCustom.ColourDepth = ILC_COLOR32
   ilsCustom.AddFromHandle lhBmp, IMAGE_BITMAP, "CUSTOM", &amp;H0&amp;
   DeleteObject lhBmp
   
   m_cDrag.hImagelist = ilsCustom.hIml
   m_cDrag.StartDrag 0, 64, 24
   
   Data.SetData sText, vbCFText
   AllowedEffects = vbDropEffectCopy
   '
End Sub
</pre><p>&#160;</p><p