      If (IsMissing(vEndKey)) Then
         iEnd = ImageCount - 1
      Else
         iEnd = ItemIndex(vEndKey) - 1
      End If
      
      If (iEnd &gt; iStart) And (iEnd &gt; -1) Then
         lParenthDC = UserControl.Parent.hdc
         lHDC = CreateCompatibleDC(lParenthDC)
         If (lHDC &lt;&gt; 0) Then
            lSizeX = ImageCount * m_lIconSizeX
            lhBmp = CreateCompatibleBitmap(lParenthDC, lSizeX, m_lIconSizeY)
            If (lhBmp &lt;&gt; 0) Then
               lhBmpOld = SelectOb