(lKey &lt;= lKeyCount) Then
         If iPos = 0 Or iPos &lt; iLastPos Then
            If Len(sKeys) - iLastPos &gt; 0 Then
               m_sKey(lKey) = Mid$(sKeys, iLastPos)
            End If
         Else
            m_sKey(lKey) = Mid$(sKeys, iLastPos, iPos - iLastPos)
         End If
      End If
   End If
End Sub

Private Sub UserControl_Initialize()
   m_lIconSizeX = 16
   m_lIconSizeY = 16
   m_eColourDepth = ILC_COLOR
End Sub

Private Sub UserControl_InitProperties()
    If (Create()) Then
      