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