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

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