With Grid1.
  .FixedCol = True
  .FixedColCount = 8
End With

With Grid1.AddItem("Spalte 9" & vbTab & "Spalte 10")
  .FixColText(1)="Feste Spalte 1"
  .FixColText(2)="Feste Spalte 2"
  .FixColText(3)="Feste Spalte 3"
  ...
End With

With Grid1
  .LockUpdate True
 
  .FixedCol = True
  .FixedColCount = 8
 
  ' Spalten ausblenden
  For x = 1 To .FixedColCount
    .Columns(x).Visible = False
  Next x
 
  ' Ganz normal füllen
  With .AddItem("Spalte1" & vbTab & "Spalte2" & vbTab & ...)
    ' Inhalt der ersten x Spalten in die fixen Spalten übertragen
    For x = 1 To Grid1.FixedColCount
      .FixColText(x).Visible = .CellText(x)
    Next x
  End With
 
  ...
  .LockUpdate False
  .Refresh
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de