Label поверх ProgressBar

label1.BackColor = System.Drawing.Color.Transparent

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 10000
        For i = 1 To 10000
            ProgressBar1.Value += 1
            If ProgressBar1.Value > 0 And ProgressBar1.Value <= 1000 Then
                draw_text("Инициализация")
            ElseIf ProgressBar1.Value >= 1001 And ProgressBar1.Value <= 5500 Then
                draw_text("Загрузка текстур")
            ElseIf ProgressBar1.Value >= 2501 And ProgressBar1.Value <= 7500 Then
                draw_text("Загрузка модулей")
            ElseIf ProgressBar1.Value >= 7501 And ProgressBar1.Value <= 10000 Then
                draw_text("Завершающий этап")
            End If
        
 
        Next
    End Sub
    Sub draw_text(ByVal text As String)
        Using gr As Graphics = ProgressBar1.CreateGraphics()
            gr.DrawString(text, SystemFonts.DefaultFont, Brushes.Black, New PointF(ProgressBar1.Width / 2 - (gr.MeasureString(text, SystemFonts.DefaultFont).Width / 2.0F), ProgressBar1.Height / 2 - (gr.MeasureString(text, SystemFonts.DefaultFont).Height / 2.0F)))
        End Using
    End Sub