SelectCellGrid

ColoraCella MsFlexGrid1,c1,c2
'dove c1=numero di riga e c2=numero di colonna

'_________________________________________________________


Public Sub ColoraCella(a As Control, c1 As Integer, c2 As Integer)
a.Redraw = False
a.Row = c1: a.Col = c2
a.CellBackColor = QBColor(1): a.CellForeColor = QBColor(15)
a.Redraw = True
End Sub