Problema con BackColor y Rgb (solucionado)

[lucasarts_18]

Hola:

Asigno en tiempo de ejecución el siguiente código al backcolor de un control image.

Código:

LblCama(J).BackColor = colorCamaDisp

la constante colorCamaDisp la tengo definido de la siguiente manera.

Código:

Private Const colorCamaDisp = &H80E080 'color verde

Todo esto funcionando bien, pero resulta que cuando hago un click sobre el objeto y obtengo el valor de la propiedad backcolor obtengo el siguiente número.

-2147483633

la forma de obtener el valor es de la siguiente forma

Código:

Private Sub PicCama_Click(Index As Integer)
   vColor = PicCama(Index).BackColor
   MsgBox vColor
End Sub

necesito poder recuperar este valor mediante el mismo valor asignado, es decir
&H80E080 ó bien poder convertir a color RGB.

No sé como tratar este número para convertirlo a otras unidades.

Saludos .-

[Avellaneda]

Hola:

Puedes utilizar la función Hex:

vcolor = "&H" & Hex(PicCama(Index).BackColor)

Saludos

[lucasarts_18]

Iniciado por Avellaneda

Hola:

Puedes utilizar la función Hex:

vcolor = "&H" & Hex(PicCama(Index).BackColor)

Saludos

Había intentado con la función Hex antes de postear pero nunca le había antepuesto la H.

Gracias Avellaneda !!!