Flashing colors in MSFlexgrid

[Flupke]

Hello,

In a VB6 MSFlexgrid, I would like to give a particular row a flashing color. Is that possible and how can I achieve this?

Many thanks and greetings from Brugge (Bruges - Belgium),

Michel

 

[vladk]

Private Sub Form_Load()
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
Dim i
Static blnColor As Boolean

With MSHFlexGrid1
.Row = 2
For i = 1 To .Cols - 1
.Col = i
.CellBackColor = IIf(blnColor, vbRed, vbWhite)
Next i
End With
blnColor = Not blnColor
End Sub