RGB Function
དམར་པོ་ལྗང་ཁུ་དང་སྔོན་པོ་གྲུབ་ལས་གྲུབ་པའི་ཧྲིལ་དབྱིབས་རང་པོའི་ཚོས་གཞི་ཐང་ཕྱིར་ལོག་བྱེད།
བརྡ་འཕྲོད་
RGB (Red, Green, Blue)
ཕྱིར་ལོག་ཐང་
ཧྲིལ་གྲངས་རིང་པོ་
ཞུགས་གྲངས་
Red:ཚོས་མདོག་ནང་གི་དམར་པའི་གྲུབ་ཆ་ (0-255) ཡིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ།
Green:ཚོས་མདོག་ནང་གི་སྔོན་པའི་གྲུབ་ཆ་ (0-255) ཡིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ།
Blue:ཚོས་མདོག་ནང་གི་སྔོན་པའི་གྲུབ་ཆ་ (0-255) ཡིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ།
དཔེ་གཞི་
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