[Resolvido]Declarar variável para receber constantes de cores

Olá, boa noite!
Gostaria de uma ajuda dos amigos no seguinte:
Conheço as constantes de cores (vbRed, vbBlue, etc..)
Gostaria de declarar uma variável que receba essa constante.

Tem como?

Implemente a explicação por gentileza.

Obrigado pelo interesse!
O que pretendo é usar as cores padrão do vba
em um variável. Por exemplo:
Para eu por um texto em uma variável terei que
declará-la como uma string.
O que eu gostaria era de declarar uma variável
que recebe as cores das constantes de cores do
vba. Algo do tipo:

Dim Cores as Constantes de cores
Dessa forma, toda vez que eu fosse usar as cores,
apenas me referisse a Cores, e o vba iria sugerir
as cores da constante. Deu para entender?

Boa tarde, Marcos

Não precisa, então, de armazenar os valores. Atribua-os directamente através da função RGB: Controlo.backcolor=rgb...

Marcos,

Ainda ficou um pouco confuso mas acho que vc pode usar o ENUM para isso. Ou direto como nosso amigo Alexandre sugere com o RGB

Exemplo:

Código:

Public Enum cor
  branco = vbWhite
  vermelho = vbRed
  azul = vbBlue
  verde = vbGreen
  preto = vbBlack
  AzulClaro = 16764057 'RGB(203, 227, 253)
  AmareloClaro = 13434879
End Enum

Mudando a cor do campo ao receber foco, usaria assim:

Código:

Private Sub tx1_GotFocus()
Me!tx1.BackColor = cor.AmareloClaro 'quando vc coloca o ponto, depois da paralavra COR, aparece a lista de todas as cores listadas do ENUM
End Sub

Veja aqui neste meu artigo:


http://www.usandoaccess.com.br/dicas/dica9.asp?id=1#inicio

Sucesso!

Bom tarde amigos!

Apenas para registrar:
Estou usando o Enum para listar as cores do
texto em uma MsgBox personalizada, que estou
implementando.

Marcos, não entendi direito o que você pretende,
mas imagino que a dica do Avelino tenha ido de
frente ao que pretende.

É exatamente isso que eu quero mestre Avelino.

Também estou grato pelo interesse dos mestre
criquio e Alexandre!

Mestre Marcelo David, já estou até curioso em ver
seu exemplo. Pois uso muitas MsgBox para confirmar
que uma coisa deu certo. Mas acho chato o usuário
ter que clicar em um botão para fechar a mensagem.

Muito obrigado mestres!