With Grid1
        .DataMode = Mode_List
 
        .Left = 100
        .Width = 5000
 
        .ColumnAdd "a", "a", 1000, ALIGNMENT_LEFT, , TYP_TEXT, ALIGNMENT_LEFT
        .ColumnAdd "b", "b", 1000, ALIGNMENT_CENTER, , TYP_TEXT, _
          ALIGNMENT_CENTER
        .ColumnAdd "c", "c", 1000, ALIGNMENT_RIGHT, , TYP_TEXT, ALIGNMENT_RIGHT
        .ColumnAdd "d", "d", 1000, ALIGNMENT_RIGHT, , TYP_TEXT, ALIGNMENT_RIGHT
 
 
        Label1(1).Left = .Left
        Label1(1).Width = .Columns(1).Width + .Columns(2).Width + 3 * _
          .CellSpacing
 
        Label1(2).Left = .Left + .Columns(1).Width + .Columns(2).Width + 3 * _
          .CellSpacing
        Label1(2).Width = .Columns(3).Width + .Columns(4).Width + 3 * _
        .CellSpacing
 
    .AddItem "AAA" & vbTab & "BBB" & vbTab & "CCC" & vbTab & "DDD"
    End With