Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As ListItem)
  With Item
    ' CheckBox-Status anzeigen
    .CellText("cb") = IIf(IsInCollection(colCheckBox, .CellText("ID")), "0", _
      "1")
  End With
End Sub

Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, iCancel As Integer)
  With Grid1
    If nCol = .GetCol("cb") Then
      ' CheckBox-Status speichern
      If CBool(sText) = False Then
        If Not IsInCollection(colCheckBox, .Text(nRow, "ID")) Then
          colCheckBox.Add "1", .Text(nRow, "ID")
        End If
      Else
        If IsInCollection(colCheckBox, .Text(nRow, "ID")) Then
          colCheckBox.Remove .Text(nRow, "ID")
        End If
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de