Private Sub Form_Load()
  Dim i As Long
 
  With Grid1
    .DataMode = Mode_List
    .LockUpdate True
    For i = 1 To 100
      .ColumnAdd , "Spalte " & CStr(i)
    Next i
    .AddItem "Test"
    .AllowEdit = True
    .LockUpdate False
    .Refresh
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de