Заполнение progressbar в течении 3 секунд - Visual Basic .NET

Формулировка задачи:

на форме прогрессбар и лабел. Необходимо заполнять прогресс бар в течении 3х секунд и в label выводить % заполнения. как это осуществить?. заранее спасибо!

Решение задачи: «Заполнение progressbar в течении 3 секунд»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Private WithEvents _timer As Threading.Timer
 
    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)
        ProgressBar1.Maximum = 3000.0F
        ProgressBar1.Step = 200
    End Sub
 
    Private Sub callback(state As Object)
        SetProgress()
        If ProgressBar1.Value >= ProgressBar1.Maximum Then
            _timer.Dispose()
        End If
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        _timer = New Threading.Timer(AddressOf callback, Nothing, TimeSpan.Zero, TimeSpan.FromMilliseconds(200))
    End Sub
 
 
    Private Sub SetProgress()
        ProgressBar1.PerformStep()
        Label1.Text = $"{ProgressBar1.Value / ProgressBar1.Maximum:p0}"
    End Sub
End Class
                        