bonjour le forum

j'ai le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub listView1_ItemCheck(ByVal Item As ListItem)
Dim j As Integer
    j = 0
    If Item.Checked = True Then
    Item.ForeColor = RGB(0, 0, 255) 'Changement couleur
    Item.Bold = True 'Gras
    For j = 1 To Item.ListSubItems.Count
    Item.ListSubItems(j).ForeColor = RGB(0, 0, 255)
    Item.ListSubItems(j).Bold = True
Next j
Else
    Item.ForeColor = RGB(1, 0, 0) 'Changement couleur
    Item.Bold = False
For j = 1 To Item.ListSubItems.Count
    Item.ListSubItems(j).ForeColor = RGB(1, 0, 0)
    Item.ListSubItems(j).Bold = False
Next j
End If
Exit Sub 
End Sub
Le code fonctionne avec un changement de couleur de la ligne checked.
Néanmoins la ligne perd son statut checked aprés fermeture du form et la couleur disparet .Comment faire pour que le checbox une fois checked le restera tant qu il n'a pas subit un autre evenement click.
Merci pour toutes vos réponses