 , 196
      .AddColumn "col6", "Col 6"
      .AddColumn "col7", "Col 7"
      .AddColumn "col8", "Col 8", , , , , , , , , , CCLSortIcon
      .AddColumn "col9", "Col 9"
      .AddColumn "col10", "Col 10"
      
      .KeySearchColumn = .ColumnIndex("size")
      
      .DefaultRowHeight = 30

   End With
   
End Sub

''' &lt;summary&gt;
''' Add some demonstration data to the grid
''' &lt;/summary&gt;
Private Sub addData()
Dim lRow As Long, lCol As Long, lIndent As Long
      
   Dim sFnt2 As New StdFont
  