Перекрасить цвет ячейки MS FLEXGRID - VB

Формулировка задачи:

Добрый день! Подскажите как перекрасить цвет ячейки в MS FLEXGRID

Решение задачи: «Перекрасить цвет ячейки MS FLEXGRID»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim i As Long
    
    grid.Rows = picSrc.ScaleHeight
    grid.Cols = picSrc.ScaleWidth
    
    For i = 0 To grid.Cols - 1
        grid.ColWidth(i) = grid.RowHeight(0)
    Next
    
    Call grid_Scroll
End Sub
 
Private Sub grid_Scroll()
    Dim ir As Long, ic As Long
    Dim cr As Long, cc As Long
    
    cr = grid.Row: cc = grid.Col
    ir = grid.TopRow
    
    ' Г—ГІГ®ГЎГ» Г*ГҐ Г¬Г®Г°ГЈГ*Г«Г®
    grid.Visible = False
    
    Do While ir < grid.Rows
        
        If Not grid.RowIsVisible(ir) Then Exit Do
        
        ic = grid.LeftCol
        
        Do While ic < grid.Cols
            If Not grid.ColIsVisible(ic) Then Exit Do
            ' ir,ic - ГўГЁГ¤ГЁГ¬Г»ГҐ ГїГ·ГҐГ©ГЄГЁ, ГЎГҐГ°ГЁ ГЁГ§ Г°ГҐГЄГ®Г°Г¤Г±ГҐГІГ* Г§Г*ГЇГЁГ±Гј ГЇГ®Г¤ ГЅГІГЁГ¬ ГЁГ*Г¤ГҐГЄГ±Г®Г¬ ГЁ ГіГ±ГІГ*Г*Г*ГўГ«ГЁГўГ*Г© Г¶ГўГҐГІ - ГІГ*Г¬ ГЈГ¤ГҐ Г*ГіГ¦Г*Г®
            grid.Row = ir
            grid.Col = ic
            grid.CellBackColor = picSrc.Point(ic, ir)
            ic = ic + 1
        Loop
        
        ir = ir + 1
        
    Loop
    
    grid.Row = cr: grid.Col = cc
    grid.Visible = True
End Sub
                        