Pytanie Niedziałający progressbar

Mógłby ktoś rzucić okiem na kod? Bo gdy klikam 'generate' wyświetla się klucz, a progressbar nie działa.

Public Class Form1    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton2.Click        End    End Sub            Private Sub GButton1_Click(sender As System.Object, e As System.EventArgs) Handles GButton1.Click        If RadioButton1.Checked = False AndRadioButton2.Checked = False Then            MessageBox.Show("Choose platform!", "Error")        Else            Timer1.Start()            ProgressBar1.Value = ProgressBar1.Minimum            If RadioButton1.Checked Then                RadioButton2.Enabled = False            End If            If RadioButton2.Checked Then                RadioButton1.Enabled = False            End If        End If    End Sub    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        End If        Timer1.Stop()        MessageBox.Show("Key generated!", "Success!")        If RadioButton1.Checked Thenlosowanie_klucza:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 35560 Then                    Dim klucz As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz = klucz.Replace("2", "G")                    klucz = klucz.Replace("4", "Z")                    klucz = klucz.Replace("6", "S")                    klucz = klucz.Replace("8", "N")                    TextBox1.Text = klucz                    Exit Sub                Else                    GoTo losowanie_klucza                End If            Else                GoTo losowanie_klucza            End If        Else        End If        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        End If        Timer1.Stop()        If RadioButton2.Checked Thenlosowanie_klucza2:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 38560 Then                    Dim klucz2 As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz2 = klucz2.Replace("3", "F")                    klucz2 = klucz2.Replace("4", "Z")                    klucz2 = klucz2.Replace("5", "T")                    klucz2 = klucz2.Replace("8", "N")                    TextBox1.Text = klucz2                    Exit Sub                Else                    GoTo losowanie_klucza2                End If            Else                GoTo losowanie_klucza2            End If        End If        End    End SubEnd Class

Rzuciłem, pomogło?

Rzuciłem, pomogło?

Nieśmieszne. ratunku, pomocy.

        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        Timer1.Stop()        MessageBox.Show("Key generated!", "Success!")        End If

Spróbuj podmienić to w Timerze.