.ItemData(.NewIndex) = 0
      .AddItem "3D"
      .ItemData(.NewIndex) = 1
      .ListIndex = 1
   End With
      
Dim colX As cColumn
Dim itmX As cListItem
         
   With lvwMain
      .Visible = False
      .CustomDraw = True
            
      .AutoArrange = True
      
      ' Set up image lists:
      .ImageList(eLVLargeIcon) = ilsIcons32
      .ImageList(eLVSmallIcon) = ilsIcons16
      .ImageList(eLVTileImages) = ilsIcons48
      .ImageList(eLVHeaderImages) = ilsIcons16
      
      ' Add column 