
         ctl.OLEDropMode = 1 ' manual
      End If
   Next
   If Me.OLEDropMode = 0 Then
      Me.OLEDropMode = 1
   End If
End Sub

Private Sub Form_Load()
   
   setDragState
   
   Set m_cDrag = New cImageListDrag
   'm_cDrag.Owner = Me ' if you set the owner, then the image is only displayed
    within that object's window
   
   Dim i As Long
   m_iCount = ilsIcons.ImageCount
   ReDim m_iOrder(1 To m_iCount) As Long
   For i = 1 To m_iCount
      m_iOrder(i) = i
   Next i
   ReDim m_tR(1 To m_iCount) 