Red Function

निर्धारित रंग कोड के लाल अवयव को प्रस्तुत करता है.

Syntax:


Red (ColorNumber As Long)

वापसी मूल्य:

पूर्णांक

पैरामीटर

ColorNumber: Long integer expression that specifies any color code for which to return the Red component.

Error codes:

5 Invalid procedure call

उदाहरण:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "The color " & lVar & " consists of:" & Chr(13) &_
        "red = " & red(lVar) & Chr(13)&_
        "green = " & green(lVar) & Chr(13)&_
        "blue = " & blue(lVar) & Chr(13) , 64,"colors"
End Sub