GetRGB

Previous  Next

---

Returns the three color components.

Syntax: GetRGB (Color)

The three values are returned as an array or a structure.

Example:

Sub Globals

      Dim Type (R,G,B) clr

End Sub

Sub App_Start

      Form1.Show

      clr() = GetRGB(Form1.Color)

      Msgbox("Red=" & clr.R & " Green=" & clr.G & " Blue=" & clr.B)

End Sub