mensagem de alerta semelhante ao MSN

Boa noite pessoal,

Eu procurei na net um exemplo de mensagem semelhante a do MSN, até que achei em VB mas era muito complexo (para mim, é claro). Então fiz desse modo que anexo. O código que minimiza para o systray é do JPaulo, utilizei ele para demosntrar como funciona.Deixe um programa aberto, por exemplo o Word, para ver como a mensagem é sobreposta, abra o formteste e clique no botão. Eu sinceramente espero que gostem.

Ola Junior.

Ficaria grato se disponibilizasse em 2003.

Saudações Junior.

Teria como vc postar na versão 2003.

Sou grato pela atenção.

Esqueci de algo importante. Meu programa não reconhece a resolução da tela, sendo assim é necessário especificar a localização do form. Este que fiz é para a resolução 1920 x 1080. Se a resolução for outra é necessário mudar as variáveis "superior" e "esquerdo" do form. Exemplo se fosse uma resolução de 1600 x 900 ficaria assim as seguintes linhas do programa:

Private Sub Form_Open(Cancel As Integer)
esquerda = 19000 ' mudei aqui
superior = 13000 ' mudei aqui

e .............

Private Sub Form_Timer()
If (tipo = 0) Then
If (superior = 10000) Then ' mudei aqui
Me.TimerInterval = 10000
tipo = 1