Private Sub Grid1_AfterUpdate (ByVal Row As Long, ByVal Col As Long, _
  ByVal Text As String)
 
  If nCol = ... Then
    If CBool(sText) Then
      ' Status: Haken gesetzt
    Else
      ...
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de