Funzione Red

Restituisce il componente rosso del codice di colore specificato.

Sintassi:

Red (ColorNumber As Long)

Valore restituito:

Integer

Parametro:

ColorNumber (NumeroColore): numero intero lungo che specifica un codice di colore per il quale deve essere restituito il componente rosso.

Codici di errore:

5 Richiamo di procedura non valido

Esempio:

Sub ExampleColor

Dim lVar As Long

    lVar = rgb(128,0,200)

    MsgBox "Il colore " & lVar & " è formato da:" & Chr(13) &_

        "rosso= " & red(lVar) & Chr(13)&_

        "verde= " & green(lVar) & Chr(13)&_

        "blu= " & blue(lVar) & Chr(13) , 64,"colori"

End Sub