[Resolvido]Mensagem em uma caixa de texto durante a execução do cronômetro

Boa Tarde!!!

Estava procurando para implementação de meu bd uma solução e encontrei este código do Criquio que atende perfeitamente as minhas necessidades, mas gostaria de saber se é possível acrescentar uma caixa de texto no form, e a cada intervalo específico do cronômetro ser apresentado uma msg nesta caixa de texto, não consegui implementar, alguém saberia como, ficaria mais ou menos assim, mas claro que desta forma não esta funcionando:

If Me.cxaContagem.Width < 6000 Then
Me.cxaContagem.Width = Me.cxaContagem.Width + 15
Me.txtContagem = Me.txtContagem + 1
Me.txtContagem = Me.txtContagem + 1 / 400

'1ª mensagem a 5 seg +ou-
ElseIf Me.cxaContagem.Width = 2000 Then
Texto = "Copiando arquivos..."

'2ª mensagem a 10 seg +ou-
ElseIf Me.cxaContagem.Width = 4000 Then
Texto = "Atualizando..."

'3ª mensagem a 15 seg, finalizando
ElseIf Me.cxaContagem.Width = 6000 Then[/color]
Texto = "concluido"
Me.btnOK.Visible = True

Desde já agradeço
Att. Marcelino

se for só pra exibir a mensagem, deixe assim

Código:

If Me.cxaContagem.Width < 6000 Then
Me.cxaContagem.Width = Me.cxaContagem.Width + 15
Me.txtContagem = Me.txtContagem + 1
Me.txtContagem = Me.txtContagem + 1 / 400
end if

'1ª mensagem a 5 seg +ou-
If Me.cxaContagem.Width = 2000 Then
Texto = "Copiando arquivos..."

'2ª mensagem a 10 seg +ou-
ElseIf Me.cxaContagem.Width = 4000 Then
Texto = "Atualizando..."

'3ª mensagem a 15 seg, finalizando
ElseIf Me.cxaContagem.Width = 6000 Then
Texto = "concluido"
Me.btnOK.Visible = True
end if

Bom Dia!!!
Obrigado pela atenção, porém ocorre agora da seguinte forma:

Fica executando a contagem e quando chega a 100% da barra é apresentado apenas a msg concluído, passando direto pelas anteriores.
O que gostaria é que qdo a barra chegasse a uns 30% +ou- apresentasse no controle texto a msg "Copiando arquivos...", ficasse essa msg até qdo chegar a uns 60% +ou- ai apresentasse no controle a msg "Copiando arquivos..." e qdo atingisse os 100% ai apresentasse a msg concluído no referido controle, só que não estou sabendo fazer isso.

Att. Marcelino

Ah sim,
No If das mensagens, troque o = por <

Boa Tarde!!!


Obrigado LiveBrain, com tua dica consegui ver o que eu fazia de errado, porém carregava apenas a última msg de 3, dei mais uma verificada no código e adaptei as minhas necessidades mas consegui os que eu estava tentando, segue link para download do projeto pronto. A ideia do arquivo é efetuar uma exportação de qualquer tabela, relatório ou formulário com atualizações já realizadas para dentro de um outro banco de dados, afim de disponibilizar ao usuário uma nova atualização com as devidas alterações e durante ou após o processo que geralmente é bem rápido, ficasse uma janela animada causando o efeito de estar mesmo efetuando cópia e instalação, pura ilusão, hehehehe, mas só pra ter aquele efeito de interação no aplicativo (é claro que para este exemplo não implementei as exportações, mas pode ser modificado a vontade).

Projeto.
https://drive.google.com/file/d/0B3KeEwYJy2bnVWpZNzBlcnhjVnM/view?usp=sharing

Att. Marcelino