Función Red
Devuelve el componente rojo del código de color dado.
Sintaxis:
Red (NúmeroColor As Long)
Valor de retorno:
Entero
Parámetro:
NúmeroColor: Expresión de número entero largo que especifica uncódigo de color para el que devolver el componente rojo.
Ejemplo:
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "El color " & lVar & " contiene los componentes:" & Chr(13) &_
"rojo = " & red(lVar) & Chr(13)&_
"verde= " & green(lVar) & Chr(13)&_
"azul= " & blue(lVar) & Chr(13) , 64,"colores"
End Sub