Postada em 22/06/2004 19:47 hs
Coloca um ProgressBar(PBar) no seu Form junto com um controle Timer(Tmr).... com o seguinte código
Private Sub Form_Load()
PBar.Max = 100
Tmr.Interval = 250
End Sub
Private sub Tmr_Timer()
if PBar.Value = PBar.Max then 'Se jah estiver no máximo
Tmr.Enabled = False 'para o timer
else
PBar.Value = PBar.value + 1 'Senaum incremente o valor
end if
End Sub
Isso é soh pra vc ter uma noção... qq coisa me procure ou poste novamente...
Grato! Chuck_NewBie
DDoS(Distrubuted Denial of Service) -> Quem domina possui a arte da destruição
Me encontre em:
ICQ: 289609955
MSN: ChuckMaia@HotMail.com
-> irc.brasnet.org - Rede BrasNET de IRC
@#HackerZ @#Hacker_Brasnet @#VBWorld @#SimienS @#VBJ @#Defacers @#Wetico
|
