[VB6] Evidenziare cella di MSFlexGrid con colore specifico

[Magicolotto]

con questo codice avidenzio le celle che oglio

Private Sub MSHFlexGrid1_Click()
Dim CELL_OK As Integer
' colora celle
Dim cell_color As String
Dim cell_color_restore As String

cell_color = Hex(MSHFlexGrid1.CellBackColor)
cell_color_restore = cell_color

Select Case cell_color

Case "FFFFFF"
MSHFlexGrid1.CellBackColor = RGB(255, 0, 0)

Case Is = "80000005"
MSHFlexGrid1.CellBackColor = RGB(255, 0, 0)

Case Is = "C0C0C0"
MSHFlexGrid1.CellBackColor = RGB(255, 0, 0)
CELL_OK = True
Case Is = "FF"
If CELL_OK = False Then
MSHFlexGrid1.CellBackColor = CommonDialog1.Color Or RGB(192, 192, 192)
Else
MSHFlexGrid1.CellBackColor = CommonDialog1.Color Or RGB(192, 192, 192)
CELL_OK = False
End If
End Select
End Sub

il piccolo problemino che ho ....


quando evidenzio una cella esempio di colore verde...


pero poi la vorrei evidenziare di altro colore non me lo permette...
xchè una volta impostato il colore non mi fa + evidenziare la 2° volta

[girobai]

devi controllare bene la tua 'select case', usa anche il 'case else'