Option Explicit
 
Private Sub Form_Load()
  Dim i As Long
 
  With Grid1
    .DataMode = Mode_List
    .LockUpdate True
    ' Spalten erstellen
    For i = 1 To 20
      .ColumnAdd "Col " & CStr(i)
    Next i
    .LockUpdate False
    .Refresh
  End With
End Sub
 
Private Sub Command1_Click()
  Dim i As Long
  Dim nRows As Long
 
  ' Zeilen einfügen
  nRows = 87677
 
  Screen.MousePointer = 11
  With Grid1
    .LockUpdate True
    For i = 1 To nRows
      .AddItem "Zeile " & CStr(i)
    Next i
    .LockUpdate False
    .Refresh
  End With
  Screen.MousePointer = 0
End Sub
 
Private Sub Command2_Click()
  ' Neue Datenzeile
  Grid1.AddNew 1
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de