wapTypes = eilSwap _
   )
Attribute SwapOrCopyImage.VB_Description = "Swaps two images or copies an image
 to another position in the image list."
Dim lDst As Long
Dim lSrc As Long
Dim sKeyDst As String
Dim sKeySrc As String

   If (m_hIml &lt;&gt; 0) Then
      lDst = ItemIndex(vKeySrc) - 1
      If (lDst &gt; -1) Then
         lSrc = ItemIndex(vKeyDst) - 1
         If (lSrc &gt; -1) Then
            ImageList_Copy m_hIml, lDst, m_hIml, lSrc, eSwap
            sKeyDst = m_sKey(lDst)
            sKeySrc = m