Dim sClients() As String = {"Andrew A", "Brian B", "Charlie C", "Davina D", "Emma E"}
        Dim sDates() As Date = {#01/01/2001#, #7/9/2016#, #12/31/2017#, #9/2/2010#, #12/31/2015#}
        grdIGrid.BeginUpdate()

        grdIGrid.SortByLevels = True
        grdIGrid.RowMode = True
        grdIGrid.RowTextVisible = True
        grdIGrid.RowTextStartColNear = 0
        grdIGrid.RowTextEndColFar = 0

        For iMainRow As Integer = 0 To 9
            Dim oRow As iGRow = grdIGrid.Rows.Add

            oRow.Level = 0
            oRow.TreeButton = iGTreeButtonState.Visible
            oRow.Cells(0).Value = sClients(iMainRow Mod sClients.Count) & " :: " & iMainRow.ToString
            oRow.Cells(1).Value = ""
            oRow.Cells(1).AuxValue = iMainRow
            oRow.Cells(2).Value = sDates(iMainRow Mod sDates.Count)
            oRow.CellStyle.BackColor = Color.AliceBlue

            For iSubRow As Integer = 0 To Int(Rnd() * 5)
                Dim oSubRow As iGRow = grdIGrid.Rows.Add

                oSubRow.Level = 1
                oSubRow.TreeButton = iGTreeButtonState.Hidden
                oSubRow.Cells(0).Value = String.Format("Child {0} of Node {1}", iSubRow, iMainRow)
                oSubRow.Cells(1).AuxValue = CInt(Rnd() * 99).ToString("00")
                oSubRow.Cells(2).AuxValue = CInt(Rnd() * 99).ToString("00")
                oSubRow.CellStyle.BackColor = Color.Cornsilk
            Next
        Next

        For Each oCol As iGCol In grdIGrid.Cols
            oCol.AutoWidth()
        Next

        grdIGrid.EndUpdate()

grdIGrid.Cols.Count = 3