Заполнение ProgressBar за 5 секунд

Dim diff = ProgressBar1.Maximum - ProgressBar1.Minimum
Dim period = 300
diff /= (5 / (period / 1000))
Dim starttime = DateTime.Now
Dim tmr As Threading.Timer
Dim act = New Action(Sub()
                            ProgressBar1.Increment(diff)
                            Text = (DateTime.Now - starttime).ToString("ss")
                            If ProgressBar1.Value >= ProgressBar1.Maximum Then
                                tmr?.Dispose()
                            End If
                        End Sub)
tmr = New Threading.Timer(Sub(obj)
                                If InvokeRequired Then
                                    Invoke(act)
                                Else
                                    act()
                                End If
                            End Sub, Nothing, TimeSpan.Zero, TimeSpan.FromMilliseconds(period))

 Dim i As Integer = 0
 
        While (ProgressBar1.Value < 100)
            i = (i + 1)
            ProgressBar1.Value = (i * (100 / 5))
            Thread.Sleep(100)
 
        End While
 
        i = 0
 
        MsgBox("Прогрессбар заполнен!")
        ProgressBar1.Value = 0