re Function ExtractIconEx Lib "Shell32" Alias "ExtractIconExA" ( _
      ByVal lpszFile As String, _
      ByVal nIconIndex As Long, _
      plIconLarge As Long, _
      plIconSmall As Long, _
      ByVal nIcons As Long _
   ) As Long
Private Declare Function DestroyIcon Lib "USER32" (ByVal hIcon As Long) As Long


' Subclassing support:
Implements ISubclass

' Over-riding VB UserControl's default IOLEInPlaceActivate:
Private m_IPAOHookStruct As IPAOHookStruct

' Handle of ListBox:
Private m_hWnd As Long
' 