如何在进度结束时关闭进度条？

Question

当进度条的值达到5时，我已经关闭了表单。我遇到的问题是，当值为5并且绿色条到达条形的末尾时，它会立即关闭表单。我希望进度条在到达栏的末尾时关闭表单。动画显示它到达进度条的末尾。

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ProgressBar1.Maximum = 5
End Sub

Public Class Form2
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        ProgressBar1.Increment(+1)
        Select Case ProgressBar1.Value
            Case 5
                Timer1.Enabled = False
                Me.Hide()
                Form1.Show()
        End Select
    End Sub
End Class