[VB]Code couleur sous visual basic

Bonjour à tous,

Je cherche depuis un bon moment le code des couleurs en visual basic.
Est ce que quelqu'un a une idée où je pourrais trouver ça.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function mort_ou_vie(a As Integer, b As Integer, ms1 As MSFlexGrid, Tvi() As Boolean)
For a = 1 To Longmax
     For b = 1 To Longmax
 
        If Tvi(a, b) = False Then
        ms1.Col = a - 1
        ms1.Row = b - 1
        ms1.CellBackColor = QBColor(red)
 
            Else
            ms1.Col = a - 1
            ms1.Row = b - 1
            ms1.CellBackColor = QBColor(green)
 
        End If
    Next b
Next a
End Function