Option Explicit
  Dim z As Long
 
Private Sub Form_Load()
  With Grid1
    .LockUpdate True
    .CheckBoxStyle = CHECKBOX_MODERN
    .AllowEdit = True
    .AllowMultiSelect = True
    .AutoSort = True
    .AutoUpdate = True
    .DataMode = Mode_List
 
    .ColumnAdd 1, 1
    .ColumnAdd 2, 2
    .ColumnAdd 3, 3, , , , TYP_CHECKBOX
    .ColumnAdd 4, 4
    .ColumnAdd 5, 5
    'autom. Neuzeichnen wieder aktivieren
    .LockUpdate False
    .Refresh
 
    For z = 1 To 5
      .AddItem z
    Next z
  End With
End Sub
 
Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    If Grid1.Col <> Grid1.Cols Then
      Grid1.DoEdit Grid1.Row, Grid1.Col + 1
    End If
  End If
End Sub

cu puppet

Wer ?berall seinen Senf dazu gibt, kommt schnell in den Verdacht ein W?rstchen zu sein!