Фильтр мозаика

[PAVEL_USER]

Пытаюсь реализовать фильтр "мозаика", но не пойму в чем проблема.
Светлые цвета преобразуются в красные. Как избежать этого?

[tyomitch]

Найди 10 отличий.

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

Sub mos(n1 As Integer, n2 As Integer)
R = 0: G = 0: B = 0

For i = n1 To n1 + raz
For j = n2 To n2 + raz
Color = Me.Point(i, j)

   
    R = R + (Color And &HFF)
    G = G + ((Color \ &H100) And &HFF)
    B = B + ((Color \ &H10000) And &HFF)
   
Next j
Next i

R = R / raz / raz
G = G / raz / raz
B = B / raz / raz

Me.Line (n1, n2)-(n1 + raz, n2 + raz), RGB(R, G, B), BF:  Me.Caption = Round(R, 0) & " " & Round(G, 0) & " " & Round(B, 0): Me.Refresh

End Sub


[PAVEL_USER]

Благодарю за исправления!

[pavel-raziel]

А зачем нужен этот фильтр мозаика