RGB Function

แžแŸ’แžšแžกแž”แŸ‹ แžแž˜แŸ’แž›แŸƒโ€‹แž–แžŽแŸŒโ€‹แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹โ€‹แž’แŸ† แžŠแŸ‚แž›โ€‹แž˜แžถแž“โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แž€แŸ’แžšแž แž˜ แž”แŸƒแžแž„ แž“แžทแž„โ€‹แžแŸ€แžœย แŸ”โ€‹

แžœแžถแž€แŸ’แž™โ€‹แžŸแž˜แŸ’แž–แž“แŸ’แž’ แŸ–

RGB (Red, Green, Blue)

แžแž˜แŸ’แž›แŸƒโ€‹แžแŸ’แžšแžกแž”แŸ‹ แŸ–

Long

แž”แŸ‰แžถแžšแŸ‰แžถแž˜แŸ‰แŸ‚แžแŸ’แžš แŸ–

Red แŸ– แž€แž“แŸ’แžŸแŸ„แž˜โ€‹แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹โ€‹แž˜แžฝแž™ แžŠแŸ‚แž›โ€‹แžแŸ†แžŽแžถแž„โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แž€แŸ’แžšแž แž˜ (แŸ -แŸขแŸฅแŸฅ) แž“แŸƒโ€‹แž–แžŽแŸŒโ€‹แžŠแŸ‚แž›โ€‹แž•แŸ’แžŸแŸ†ย แŸ”

Green แŸ– แž€แž“แŸ’แžŸแŸ„แž˜โ€‹แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹โ€‹แž˜แžฝแž™ แžŠแŸ‚แž›โ€‹แžแŸ†แžŽแžถแž„โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แž”แŸƒแžแž„ (แŸ -แŸขแŸฅแŸฅ) แž“แŸƒโ€‹แž–แžŽแŸŒโ€‹แžŠแŸ‚แž›โ€‹แž•แŸ’แžŸแŸ†ย แŸ”

Blue แŸ– แž€แž“แŸ’แžŸแŸ„แž˜โ€‹แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹โ€‹แž˜แžฝแž™ แžŠแŸ‚แž›โ€‹แžแŸ†แžŽแžถแž„โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แžแŸ€แžœ (แŸ -แŸขแŸฅแŸฅ) แž“แŸƒโ€‹แž–แžŽแŸŒโ€‹แžŠแŸ‚แž›โ€‹แž•แŸ’แžŸแŸ†ย แŸ”

Error codes:

5 แž€แžถแžšโ€‹แž แŸ…โ€‹แž”แŸ‚แž”แž”แž‘โ€‹แž˜แžทแž“โ€‹แžแŸ’แžšแžนแž˜แžแŸ’แžšแžผแžœ

แžงแž‘แžถแž แžšแžŽแŸ แŸ–

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