P°evod barvy na stupe≥ Üedi

Function GetGreyScale(ByVal lColor As Long)

    Dim lColor As Long
    lColor = 0.33 * (lColor Mod 256) + 0.59 * ((lColor \ 256) Mod 256) + 0.11 * _
        ((lColor \ 65536) Mod 256)
    GetGreyScale = RGB(lColor, lColor, lColor)

End Function

Zp∞t