Types = eilSwap _
   )
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)
      If (lDst &gt; -1) Then
         lSrc = ItemIndex(vKeyDst)
         If (lSrc &gt; -1) Then
            ImageList_Copy m_hIml, lDst, m_hIml, lSrc, eSwap
            sKeyDst = m_sKey(lDst)
            sKeySrc = m_sKey(lSrc)
            m_sKey(lDst) = sKeySrc
            m_sKey(lSrc) = sKeyDst
         End If
      End If
   End If
End Sub

Pu