[Resolvido]Mudar cor do Campo na Agenda quando concluída a tarefa.

Boa tarde amigos.
Estou com um problema ao qual não tenho muito conhecimento.
Tenho uma agenda de compromissos que peguei em um site americano.
Montei ela do jeito que preciso, porém tenho uma opção de o usuário clicar em Concluir quando a tarefa finaliza.

Gostaria de saber se têm como mudar a cor da tarefa para verde ou qualquer outra cor e que a caixa do dia atual fique colorida também.
Segue exemplo, agradeço antecipadamente.

Cláudio Machado

Pode postar na versão 2007 ?

Converti Assis.


https://dl.dropboxusercontent.com/u/90217826/AGENDA2015_MAXIMO2003.rar

Bom dia
Autor: Piloto
Para estudar, e tentar ajudar

Interessante Assis, só que tentei adaptar aqui, mas ainda não consegui.
Mas estou tentando.
Obrigado

Bem galera, estudando o próprio código da minha agenda e fazendo alguns testes.
Resolvi meu problema de cor do dia nesta parte do código do form:

Código:



Private Sub HighlightToday()
If (Int(Me.cboMonth) = Int(Format(Date, "mm"))) And (Int(Me.cboYear) = Int(Format(Date, "yyyy"))) Then
    Controls("txt" & intTodayPos).ForeColor = intTodaysColor
    Controls("txt" & intTodayPos).BackColor = RGB(170, 217, 228) 'Acrescentei esta linha
    Controls("lst" & intTodayPos).BackColor = RGB(170, 217, 228)  'Acrescentei esta linha
Else
    Controls("txt" & intTodayPos).ForeColor = intThisMonthsColor
    Controls("txt" & intTodayPos).BackColor = 16775416 'Acrescentei esta linha
    Controls("lst" & intTodayPos).BackColor = 16775416 'Acrescentei esta linha
End If
End Sub



Agora falta só a cor da tarefa concluída.

Desculpem, faltou o resolvido.