Private Sub Grid1_OnCheckBoxChange(ByVal nRow As Long, ByVal bNewState As _
  Boolean, bCancel As Boolean)
  ' Prüfen, ob bereits ein Eintrag markiert ist
  Dim i As Long
 
  If bNewState = True Then
    With Grid1
      For i = 1 To .Rows
        If .ListItems(i).Checked Then
          MsgBox "Es ist bereits ein Eintrag markiert!"
          bCancel = True
          Exit For
        End If
      Next i
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de