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

Private Sub Grid1_FixedColClick(ByVal nRow As Long, ByVal nCol As Long, Button _
  As Integer)
  Dim SortDesc As sevDataGrid3.sevGridSortDesc
 
  With Grid1
     SortDesc = .Columns(nCol).SortDesc
     If SortDesc = SORT_ASC Then 
       SortDesc = SORT_DESC 
     Else 
       SortDesc = SORT_ASC
    End If
    .DoSort nCol, SortDesc
    .FixedColumns(nCol).SortDesc = SortDesc
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de