Функція Red
Повертає червоний компонент в переданому в колірному коді.
Синтаксис:
Red (Колір As Long)
Повернуте значення:
Ціле число
Параметр:
Колір: вираз з цілих чисел типу Long, що містить будь-який колірний код, для якого необхідно повернути червоний компонент.
Приклад:
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