ml = New pcVBALImageList
         m_cIml.IconSizeX = 32
         m_cIml.IconSizeY = 32
         m_cIml.ColourDepth = ILC_COLOR32
         
         m_lIconWidth = m_cIml.IconSizeX
         m_lIconHeight = m_cIml.IconSizeY
                  
      End If
           
   End If
   
End Sub
Private Sub pSubClass()
   If Not (m_bDesignMode) Then
      AttachMessage Me, m_hWndParent, WM_SIZE
      AttachMessage Me, m_hWndParent, WM_COMMAND
      AttachMessage Me, m_hWndParent, WM_MEASUREITEM
      AttachMessage M