Sub SetProgressSmoothly(PB As ProgressBar, Target As Int, Duration As Int)
Dim n As Long = DateTime.Now
Dim start As Int = PB.Progress
Do While DateTime.Now < n + Duration
PB.Progress = start + (Target - start) * (DateTime.Now - n) / Duration
Sleep(10)
Loop
PB.Progress = Target
End Sub