Pytanie Button nie znika

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()        Button1.Visible = False        ProgressBar1.Visible = True    End Sub    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 99 Then            MsgBox("Your device: iPhone 4s has been connected")        End If        If ProgressBar1.Value = 100 Then            ProgressBar1.Visible = False            Label1.Visible = True            Label2.Visible = True            Button2.Visible = True        End If    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Button2.Visible = False        ProgressBar2.Visible = True        Timer2.Start()    End Sub    Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        ProgressBar2.Increment(1)        If ProgressBar1.Value = 1 Then        End If    End SubEnd Class

Widzi ktoś może jakiś błąd?