Как окрасить ячейку в MSFlexGrid?

[Alexey-VB]

Немогу в таблице MSFlexGrid научиться закрашивать отдельную ячейку.
Например, что бы ввести текст в определенную ячейку, то делаем так: MSFlexGrid1.TextMatrix(5, 5) = "Tekst"
А как закоасить определенную ячейку? Например ячейку из 5 столбца, из 5 ряда?

[Konst_One]

Код: Выделить всё

With Me.MSFlexGrid1

    .BackColor = vbGreen
   
    .Col = 1
    .Row = 3
   
   
    .CellBackColor = vbCyan
   
   
End With

[Alexey-VB]

MSFlexGrid1.Col = 5
MSFlexGrid1.Row = 5
MSFlexGrid1.CellBackColor = &HC0FFC0

Вот так вот получилось, но уж выглядет уж больно громоздко. Проще нельзя? Что бы одной строчкой.

[Konst_One]

нет

[Amed]

Напиши свою функцию а-ля

Код: Выделить всё

Public Sub SetCellBackColor(Col As Long, Row As Long, Color As Long)