Blue Function
рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд░рдЩ рд╕рдЩреНрдХреЗрддрдХреЛ рдиреАрд▓реЛ рдЕрд╡рдпрд╡ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдиреАрд▓реЛ(рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ рд░рдЩ)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐:
рд░рдЩ рдорд╛рди: рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рдХреБрдиреИрд░рдЩ рд╕рдЩреНрдХреЗрддрдЬреБрди рдиреАрд▓реЛ рдЕрд╡рдпрд╡ рдлрд░реНрдХрд╛рдЙрдирдХрд╛ рд▓рд╛рдЧрд┐ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "The color " & lVar & " consists of:" & Chr(13) &_
"рд░рд╛рддреЛ= " & рд░рд╛рддреЛ(lVar) & Chr(резрей)&_
"рд╣рд░реАрдпреЛ= " & рд╣рд░реАрдпреЛ(lVar) & Chr(13)&_
"рдиреАрд▓реЛ= " & рдиреАрд▓реЛ(lVar) & Chr(резрей) , ремрек,"рд░рдЩрд╣рд░реВ"
End Sub