Blue Function
ཚོས་མདོག་ཚབ་ཨང་གྱི་སྔོན་པོའི་གྲུབ་ཆའི་གཏན་འཁེལ་བ་ཕྱིར་ལོག་པ་སྤྱོད།
བརྡ་འཕྲོད་
Blue (Color As Long)
ཕྱིར་ལོག་ཐང་
ཧྲིལ་གྲངས་
ཞུགས་གྲངས་
Color:ཧྲིལ་གྲངས་ཐང་རིང་པོ་མཚོན་ཚུལ་ སྔོན་པོའི་གྲུབ་ཆའི་གང་རུང་ཕྱིར་ལོག་པ་གཏན་འཁེལ་བ་སྤྱོད་ཚོས་གཞི་ཚབ་ཨང་
དཔེ་གཞི་
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "ཚོས་གཞི་" & lVar & " ཡི་གྲུབ་པ་ "& Chr(13) &_
"red= " & Red(lVar) & Chr(13)&_
"green= " & Green(lVar) & Chr(13)&_
"blue= " & Blue(lVar) & Chr(13) , 64,"colors"
End Sub