DUVIDA NA EXIBICAO DE MENSAGEM

GERARDA 30/06/2010 14:56:12
#346151

por favor sera que alguem pode me ajudar
o proposito é o seguinte mostrar uma mensagem animada emquanto termina de executar outra tarefa

Dim minhafrase As String, tamanho As Double, conta As Double
Private Sub Command1_Click()
List1.Clear
ativamensagem
Dim rodalista
For rodalista = 0 To 100000
List1.AddItem [Ô]iten nº [Ô] & rodalista
Next
Timer1.Enabled = False
Picture1.Visible = False
End Sub

Private Sub Timer1_Timer()
conta = conta + 1
If conta = Len(minhafrase) + 1 Then conta = 1
Label1.Caption = Mid(minhafrase, 1, conta)
End Sub

Public Sub ativamensagem()
minhafrase = Label1.Caption
Timer1.Enabled = True
conta = 0
Picture1.Visible = True
End Sub

sera que é possivel ??