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