ColorSelection

ColorSelection.cs

using ESRI.ArcGIS.Display;

namespace GlobeGraphicsToolbar
{
    public class ColorSelection
    {
        private static IColor _color = null;

        public static void SetColor(int red, int green, int blue)
        {
            IRgbColor rgbColor = new RgbColorClass();
            rgbColor.Red = red;
            rgbColor.Green = green;
            rgbColor.Blue = blue;

            _color = rgbColor as IColor;
        }

        public static IColor GetColor()
        {
            if (_color == null)
            {
                IRgbColor rgbColor = new RgbColorClass();
                rgbColor.Red = 255;
                rgbColor.Green = 0;
                rgbColor.Blue = 0;

                _color = rgbColor as IColor;
            }
            return _color;
        }
    }
}

ColorSelection.vb

Imports Microsoft.VisualBasic
Imports System
Imports ESRI.ArcGIS.Display

Namespace GlobeGraphicsToolbar
	Public Class ColorSelection
		Private Shared _color As IColor = Nothing

		Public Shared Sub SetColor(ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer)
			Dim rgbColor As IRgbColor = New RgbColorClass()
			rgbColor.Red = red
			rgbColor.Green = green
			rgbColor.Blue = blue

			_color = TryCast(rgbColor, IColor)
		End Sub

        Public Shared Function GetColor() As IColor

            'set default color = red if _color = nothing
            If _color Is Nothing Then
                Dim rgbColor As IRgbColor = New RgbColorClass()
                rgbColor.Red = 255
                rgbColor.Green = 0
                rgbColor.Blue = 0

                _color = TryCast(rgbColor, IColor)
            End If
            Return _color
        End Function
	End Class
End Namespace