Colores y variables

[Zeroql]

BUENAS tengan todos

bueno la verdad es que intento meter el color de un control en una variable y que esta luego me la lea.
intente declarando la variable como byte, variant, string, integer, double, pero nada

un ejemplo de lo que quiero es:

Código (vb) [Seleccionar] Expandir


label1.forecolor=H00&00FA0
variable=label1.forecolor
label2.forecolor=variable

alguien me dice como es que debo de declara la variable yo hacerlo de otra forma
lo que keiro es guardar el color en un txt  luego leerlo y llevarlo al programa.

[seba123neo]

Hola,proba asi,pone un label y un picturebox:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim color As Long
color = Label1.ForeColor
Picture1.BackColor = color
End Sub

guarda el numero del color del label 1 en una variable y le aplica la variable al fondo del picturebox...es eso lo que querias??

saludos.

[Sai-To]

Código [Seleccionar] Expandir

dim color as string

[code]color = label1.ForeColor

[/code]

[Zeroql]

con string no funciona, y tampoco con long

[seba123neo]

si funciona como te puse:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim color As Long
Label1.ForeColor = &HFF00&
color = Label1.ForeColor
Label2.ForeColor = color
End Sub

saludos.

[Zeroql]

ya lo soluciones gracias.