Sub VOLTA_COR_TEXT (txt_aux as textbox)
txt_aux.backcolor = salva_cor
End sub
Em todos os campos voce passa o campo. No gotfocus voce coloca a sub
COR_TEXT txt_nome
e no lostfocus a
VOLTA_COR_TEXT txt_nome
Obs Isso so para textbox pode ser feito outras para a combo e etc. Ou usar o controle para fazer uma para todos os tipo.
Nao estou no escritorio para testar escrevi direto e voce deve dar uma boa olhada para ver se nao te erro.
