Handle of user control:
Private m_hWndParent As Long
' design time?
Private m_bDesignMode As Boolean
' Font
Private m_fnt As IFont
' BackColour brush
Private m_hBackBrush As Long
' Top of listBox:
Private m_lTop As Long
' icons:
Private m_hIml As Long
Private m_lIconWidth As Long
Private m_lIconHeight As Long

Private m_lNewItem As Long

Private m_sFileName As String
Private m_bAllowChangeFileName As Boolean

Private m_cIml As pcVBALImageList

Public Event DblClick()
Public Event KeyDown(KeyCode As Integer,