Implementar efeito ao minimizar

Bom dia amigos do forum, gostaria de implementar um código no meu botão de minimizar do meu formulario, que quando fosse clicado ele minimiza e fique piscando a legenda o formulário quando  estiver minimizado, e se dá também para ficar rolando o texto, se puderem  me ensinar ficarei muito grata.
Estou anexando o bd com o formulário que possue o botão, é só clicar em minimizar que poderão entender melhor a minha solicitação.

Muito obrigada

Amandaalves

Up

Amanda bom dia:

Private Sub Form_Timer()
Me.sua frase.Visible = Not Me.sua frase.Visible

End Sub
Defina o intervalo do cronometro como 600

Bom dia a todos.
Oi Lupércio, não é bem isso pois no formulario já possui um evento no timer.

Pesquisando na net acchei esse código que acho que irá funcionar, mas não tó conseguindo implementar, será que daria para algum dos amigos implementar no botão minimizar de meu formulario, pois quando ele ficar minimizado sobre o botão iniciar do windowns ele fique piscando.
Mais uma vez muito obrigada a todos

Segue o código:

Veja a declaração da função :

Private Declare Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) As Long

O valor de retorno desta função identifica se a janela estava ativa ou inativa anteriormente. 0 estava ativa, caso contrário estava inativa.

Podemos fazer a janela piscar no código de um botão. Veja :

Private Sub Command1_Click()
Dim result As integer, a As Double
result = FlashWindow(Form1.hwnd, 1)
For a = 1 To 1000000
Next
result = FlashWindow(Form1.hwnd, 1)
End Sub

Observe que temos que chamar a função duas vezes para causar o efeito de uma piscada e precisamos fazer um intervalo entre a 1a e a 2a chamada para que o efeito seja visível.

Outra possibilidade é chamar a função FlashWindow de dentro de um timer.

É interessante observar o o efeito da flashwindow é visto mesmo que a janela esteja minimizada. Assim sendo poderia ser usado um timer para que a piscada fosse contínua até que a janela ganhasse o foco.

Up