Private Sub Grid1_OnCheckBoxChange(ByVal nRow As Long, _
  ByVal bNewState As Boolean, bCancel As Boolean)
 
  ' Anzahl aktivierter Zeilen
  Debug.Print Grid1.CheckedCount + IIf(bNewState, 1, -1)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de