Функция Red

Връща червения компонент от зададения код на цвят.

Синтаксис:

Red (Color As Long)

Връщана стойност:

Integer

Параметър:

Color: израз от тип Long integer, задаващ код на цвят, за който да се намери червеният компонент.

Кодове за грешка:

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