Generate a single random ESRI color

AbelPerez

I have this function from an old extension I wrote. It generates a single random ESRI color. I can't remember where I got it or how I came to this algorithm. Does anyone know if this is still valid with ArcGIS10 and VB2010.

    Public Function RandomColor() As ESRI.ArcGIS.Display.IRgbColor
        Randomize()

        Dim pRGB As ESRI.ArcGIS.Display.IRgbColor = New ESRI.ArcGIS.Display.RgbColor
        pRGB.RGB = CInt(16777214 * Rnd() + 1)

        Return pRGB
    End Function

~AGP