CheckBox dans FlexGrid avec VB6

Bonjour,

Je cherche depuis plusieurs jours comment ajouter un CheckBox de vérification dans mon FlexGrid.

J'ai ceci au début de Private Sub Form_Load():

Dim i As Variant, ms_rows As Integer
' Start building the Grid
ms_rows = 20 ' This is the number of rows to print out
With tfgListe
    .Row = 0
    .Col = 0
    .Rows = ms_rows + 1 'We add 1 to ensure we get all the rows
    .Cols = 2
    .ColWidth(0) = 250 ' CheckBox column
    .ColWidth(1) = 1440 ' Index column
End With 'tfgListe

' Now build the Grid
For i = 0 To 20 'm_rows - 1
    With tfgListe
        Row = i: .Col = 0: .CellPictureAlignment = 4 ' Align the checkbox
        S<code>et .CellPicture = picUnchecked.Picture 

' Set the default checkbox picture to the empty box
.TextMatrix(i, 1) = i
End With
Next</code>

Ça s'arrete à ' Set the default checkbox picture to the empty box

Set .CellPicture = picUnchecked.Picture

Erreur 424, Object required

Qu'est-ce que checkbox picture?

Pourriez-vous me dire comment je peux faire ce "Set .CellPicture to picUnchecked.Picture

Il n'y a pas de CheckBox dans aucune colonne de mon FleGrid
Je ne sais pas comment ajouter CheckBox sur la colonne 1.

Merci de bien vouloir m'aider!

Jean-Claude
--