RE: Hexadecimal a Fondo, Lupa y cuentagotas

Pues no me va... el boton no hace nada :S

Private Sub Command1_Click()
Text1.BackColor = Val(CStr("&H" + Trim(Text1.Text)))
End Sub

Ese es el codigo y el Command1 corresponde al boton xo al pulsarlo no hace nada...</TR>