VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Type POINTAPI
   X As Long
   Y As Long
End Type
Private Type RECT
   left As Long
   top As Long
   right As Long
   bottom As Long
End Type

Private Declare Function ImageList_BeginDrag Lib "COMCTL32.DLL" (ByVal
 himlTrack As Long, ByVal iTrack As Long, ByVal dxHotspot As Long, ByVal
 dyHotspot As Long) As Long
Private Declare Sub ImageList_EndDrag Lib "COMCTL3