[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