ProgressBar Starts Again After I Close MsgBox

Hello here is a link for the video :
It is in German
And this the progressbar start again after i pressed ok by the msgbox
i would know how it works that the progressbar stop after you klicked ok in the msgbox
I hope you understood me and can help me.

I tried to write that:

If CheckBox1.Checked = False Then
If CheckBox2.Checked = False Then
If CheckBox3.Checked = False Then
MsgBox("You must tick something", MsgBoxStyle.Information, "Info")
ProgressBar1.Value = "0"
Timer1.Stop()
End If
End If
End If

but that doesn't work
so pls help me

thx

OK
i understood that you need the code:

Public Class Form1
Private members
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
If CheckBox3.Checked Then
MsgBox("Sorry you could not take so much. We will repair this mistake.", MsgBoxStyle.Critical, "Error")
End If




If CheckBox1.Checked = True And CheckBox2.Checked = True Then
MsgBox("Sorry, but you ticked 2 and that doesn't work!", MsgBoxStyle.Critical, "Mis take")
End If




If CheckBox1.Checked = False Then
If CheckBox2.Checked = False Then
If CheckBox3.Checked = False Then
MsgBox("You must tick something", MsgBoxStyle.Information, "Info")
End If
End If
End If
End Sub
Private Sub Button1_SecondClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseClick
ProgressBar1.Value = "0"
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(0.9)
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = "0"
Timer1.Stop()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
ProgressBar1.Value = "0"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class




I hope now you can help me