[Amboå=Zeg_h]

Hi.. I'm trying to make a loading bar for my 'msn hack'(obv a trojan mask) and i cant make it work.. can u help me?
i want it to be activated by 1 button and when the bar finish, a window popup saying something like 'invalid email' or something

[PartyPaint]

http://www.youtube.com/watch?v=w7gRswsa9bM

should solve it ;-)

[Amboå=Zeg_h]

tanks but i have vb6 and now works but the width of the bar doesnt not stop incrementing O.o
look:

Code:

Private Sub Timer1_Timer() Picture1.Visible = True Picture1.Width = Picture1.Width + 100 If Picture1.Width = Picture2.Width Then Timer1.Enabled = False End If End Sub

[PartyPaint]

tanks but i have vb6 and now works but the width of the bar doesnt not stop incrementing O.o
look:

Code:

Private Sub Timer1_Timer() Picture1.Visible = True Picture1.Width = Picture1.Width + 100 If Picture1.Width = Picture2.Width Then Timer1.Enabled = False End If End Sub

did you set the minimum to 0% & set the maximum to 100% ?

[Amboå=Zeg_h]

oooooooooohh... nope i didnt xd
how i can do that?

[Coder-san]

Code:

Private Sub Timer1_Timer() If Picture1.Width >= 10000 Then Timer1.Enabled = False Else Picture1.Width = Picture1.Width + 100 End If End Sub

This will fix your Picturebox increment.

If you want to use a Progressbar, then do this:

Code:

Private Sub Form_Load() ProgressBar1.Max = 100 End Sub Private Sub Timer1_Timer() If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False Else ProgressBar1.Value = ProgressBar1.Value + 1 End If End Sub

Or if you want to use [link=http://www.hackcommunity.com/Thread-VB6-Source-vProgress-A-ProgressBar-like-WPF-s]my vProgressBar[/link], then do this:

Code:

Dim intProgress As Integer 'In Declarations Private Sub Timer1_Timer() If intProgress >= 100 Then Timer1.Enabled = False Else intProgress = intProgress + 1 End If Call Progress(Picture1, intProgress, 50, 100) End Sub

[Amboå=Zeg_h]

I think i love u O.o...

---

Now i wanna put an error msg, i think should me something like this but dsnt work.. why?

Code:

Private Sub Timer1_Timer() Picture1.Visible = True If Picture1.Width >= 4565 Then Timer1.Enabled = False MsgBox("Error conecting server", MsgBoxStyle.Information, "blabla") = vbOK Else Picture1.Width = Picture1.Width + 100 End If End Sub

[Coder-san]

Code:

Private Sub Timer1_Timer() Picture1.Visible = True If Picture1.Width >= 4565 Then Call MsgBox("Could not connect to server", vbInformation + vbOKOnly, "Error") Timer1.Enabled = False Else Picture1.Width = Picture1.Width + 100 End If End Sub