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

VB2017です。
下のを実行しますとLabel1に表示がされる "○○データ" は
ProgressBarの表示が完了してからになります。
これを最初に表示するにはどのようにすれば良いのでしょうか？

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 999999
        ProgressBar1.Value = 0

        Label1.Text = "○○データ"
        For i = 0 To 999999
            ProgressBar1.Value = i
        Next
        ProgressBar1.Hide()
    End Sub