Module
Contents
Index 🔎︎

# Red Function

Возвращает красный компонент в переданном в цветовом коде.

## Синтаксис

    Red (Цвет As Long)

## Возвращаемое значение:

Integer

## Параметр:

Цвет. Выражение из чисел типа Long, содержащее любой цветовой код, для которого необходимо вернуть красный компонент.

## Error codes:

5 Неправильный вызов процедуры

## Пример:

    Sub ExampleColor

    Dim lVar As Long

        lVar = rgb(128,0,200)

        MsgBox "Этот цвет " & lVar & " состоит из:" & Chr(13) &_

            "красного= " & red(lVar) & Chr(13)&_

            "зелёного= " & green(lVar) & Chr(13)&_

            "синего= " & blue(lVar) & Chr(13) , 64,"цветов"

    End Sub