RGB Function
แแแแกแแ แแแแแโแแแโแ แแแฝแโแแแโแแ แแแโแแถแโแแแถแแแถแโแแแโแแแแ แ แแแแ แแทแโแแแย แโ
แแถแแแโแแแแแแแ แ
RGB (Red, Green, Blue)
แแแแแโแแแแกแแ แ
Long
แแแถแแแถแแแแแแ แ
Red แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแแ แ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
Green แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแแ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
Blue แ แแแแแแโแ แแแฝแโแแแโแแฝแ แแแโแแแแถแโแแแถแแแถแโแแแโแแแ (แ -แขแฅแฅ) แแโแแแโแแแโแแแแย แ
แงแแถแ แแแ แ
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