cDragDrop_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
   '
   paintIcons
   Data.SetData ilsIcons.ItemKey(m_iDragOver), vbCFText
   Dim b() As Byte
   b = "picDragDrop"
   Data.SetData b, &amp;HFFFFB045
   AllowedEffects = vbDropEffectCopy
   m_cDrag.hImagelist = ilsIcons.hIml
   m_cDrag.StartDrag m_iOrder(m_iDragOver) - 1, -8, -8
   '
End Sub

Private Sub picDragDrop_Resize()
   paintIcons
End Sub

Private Sub paintIcons()
   '
   Dim i As Long
   Dim X As Long
   Dim Y As Long
   picDragDrop.