Colorific MSHFLEXGRID

[paulz]

Could I populate a grid changing the color of rows depending on contents?

[Iouri]

Private Sub Data1_Reposition()
Dim i As Integer

For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = i
If CCur(MSFlexGrid1.Text) > 100 Then
MSFlexGrid1.CellForeColor = vbRed
End If
Next i
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
End Sub


Iouri Boutchkine
iouri@hotsheet.com