Private Sub Grid1_OnImageClick(ByVal nRow As Long, ByVal nCol As Long, nImage _
  As Long, Button As Integer, Shift As Integer)
  If nRow > 0 And nCol = 2 And nImage <> 0 Then
    nImage = IIf(nImage = 1, 2, 1)
    Grid1.ListItems(nRow).CellImage(2) = nImage
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de