kijk ik heb dit

Public Class Form4

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox(\"your wallie has been fucked up\")
Me.Close()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

End Class

Maar als hij moet zeggen your wallie.... zegt hij dat heel vaak hoe kan dat ?

Omdat je de timer niet laat stoppen?
je moet achter if progressbar1.value = progressbar1.maximum then
timer1.stop() zetten.

dankje voor jou !