Malwarebytes progressbar

Private Sub Start_Click(sender As Object, e As EventArgs) Handles Start.Click
      Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

      If Not Progress1.Value = Progress1.Maximum Then
      Progress1.Value += 1
      End If

      If Progress1.Value = Progress1.Maximum Then
      If Not Progress2.Value = Progress2.Maximum Then
      Progress2.Value += 1
      End If
      End If

      If Progress2.Value = Progress2.Maximum Then
      If Not Progress3.Value = Progress3.Maximum Then
      Progress3.Value += 1
      End If
      End If

      If Progress3.Value = Progress3.Maximum Then
      If Not Progress4.Value = Progress4.Maximum Then
      Progress4.Value += 1
      End If
      End If

    End Sub