Insira no seu projeto um Timer e uma Progresse Bar
agora insira o código abaixo no Timer1
For
x = 1 To 20
ProgressBar1.Value = ProgressBar1.Value + 1
Next x
If ProgressBar1.Value = 100 Then
'ação
a ser executada quando a barra de progresso carregar por completo
End
End If
Onde existe o valor 20 deve ser modificado para sua preferencia, quanto menor o valor mais a barra irá demorar para carregar.
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco