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

■No102537 (焼いも さん) に返信
> ■No102535 (KOZ さん) に返信
> ありがとうございます。
> No102529ので十分ですのでそちらを使わせていただきます。
> それとこれはProgressBar1.Valueを直接設定したもですが、これも同じように可能でしょうか？

下記のようにすればできるはずです。
UIスレッド、別スレッド、invoke、Async、Awaitをきちんと学ばないと、
応用問題ができなくなります。
基礎を学ぶことを強くお勧めします。

※下記ではinvoke出てきていませんが、必要な知識です。
※Button1_Click内の処理はUIスレッド上で実行されます。
※Task.Run内の処理は別スレッド上で実行されます。
※Awaitがあると、処置が完了するまで、UIスレッドをブロックすることなく
　Button1_Click内の処理を一時中断します。
※上記言葉が技術的ではないところもありますが、イメージとしてとらえてください。

    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        Label1.Text = "0"
        Me.Refresh()

        Await Task.Run(
            Sub()
                System.Threading.Thread.Sleep(500)   'ここに時間のかかる処理
            End Sub)
        ProgressBar1.Value = 25
        Label1.Text = 25.ToString()
        Me.Refresh()

       以下、上記と同様に修正

        System.Threading.Thread.Sleep(500)   'ここに時間のかかる処理 　
        ProgressBar1.Value = 50
        Me.Refresh()
        Label1.Text = 50.ToString()

        System.Threading.Thread.Sleep(500)   'ここに時間のかかる処理 
        ProgressBar1.Value = 75
        Me.Refresh()
        Label1.Text = 75.ToString()

        System.Threading.Thread.Sleep(500)   'ここに時間のかかる処理 　
        ProgressBar1.Value = 100
        Me.Refresh()
        Label1.Text = 100.ToString()
  
   End Sub