 Shift As Integer)
Public Event KeyPress(KeyAscii As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event SelectionChange()


Public Sub AddIcon(sPic As StdPicture, ByVal sKey As String)
Dim iCount As Long
Dim lR As Long

   iCount = m_cIml.ImageCount
   m_cIml.AddFromHandle sPic.Handle, IMAGE_ICON
   If (m_cIml.ImageCount &gt; iCount) Then
      lR = SendMessageByString(m_hWnd, LB_ADDSTRING, 0, sKey)
      If (lR &gt; LB_ERR) Then
         m_lNewItem = lR
         SendMessageByLon