Module
Contents
Index 🔎︎

# Red Function

ཚོས་མདོག་ཚབ་ཨང་གྱི་དམར་པོའི་གྲུབ་ཆ་གཏན་འཁེལ་བ་ཕྱིར་ལོག་པ་སྤྱོད།

## བརྡ་འཕྲོད་

    Red (ColorNumber As Long)

## ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་

## ཞུགས་གྲངས་

ColorNumber:ཧྲིལ་གྲངས་ཐང་རིང་པོ་མཚོན་ཚུལ་ དམར་པོའི་གྲུབ་ཆའི་གང་རུང་ཕྱིར་ལོག་པ་གཏན་འཁེལ་བ་སྤྱོད་ཚོས་གཞི་ཚབ་ཨང་

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

## དཔེ་གཞི་

    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