Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then MsgBox("Nachricht.", MsgBoxStyle.Information, "Succefully!")
Timer1.enabled = false


End Sub

Oder so ähnlich. Hab lang kein VB mehr gecoded.
+ Bitte mach nicht noch son Pseudo-Hack-Tool, danke =D