Boolean
Private m_bStartDrag As Boolean

Public Property Let hImageList(ByVal hIml As Long)
   m_hIml = hIml
End Property
Public Property Get hImageList() As Long
   hImageList = m_hIml
End Property

Public Property Let Owner(oOwner As Object)
   Set m_oOwner = oOwner
End Property

Public Sub StartDrag( _
      ByVal iImageIndex As Long, _
      Optional ByVal xOffset As Long = 0, _
      Optional ByVal yOffset As Long = 0 _
   )
Dim lR As Long
   CompleteDrag
   lR = ImageList_BeginDrag(m_hIml, iImageIndex