Private Sub Form_Load()
  Dim i As Long
  Dim nTime As Single
  Dim u As Long
  Dim sTemp As String
 
  nTime = Timer
  With sevGrid1
    .DataMode = Mode_List
    .LockUpdate True
    For i = 1 To 20
      .ColumnAdd , "Spalte " & CStr(i)
    Next i
 
    For i = 1 To 2000
      sTemp = ""
      For u = 19 To 2 Step -1
        sTemp = vbTab & "Spalte " & CStr(u) & sTemp
      Next u
      .AddItem "Eintrag " & CStr(i) & sTemp
    Next i
 
    .LockUpdate False
    .Refresh
    Debug.Print Timer - nTime
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de