C# と VB.NET の質問掲示板

これでいいのでは？

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ProgressBar1.Minimum = 0
    ProgressBar1.Maximum = 1000
    ProgressBar1.Value = 0
    Label1.Text = "0"
    Await Task.Run(
        Sub()
            For i = 0 To 1000
                System.Threading.Thread.Sleep(10)
                Invoke(
                    Sub(index As Integer)
                        ProgressBar1.Value = index
                        Label1.Text = index.ToString()
                        Me.Refresh()
                    End Sub, i)
            Next
        End Sub)
End Sub