您可以通过以下代码示例来解决标签不显示进度条的问题：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 首先，创建一个进度条控件和一个标签控件
    Dim progressBar As New ProgressBar()
    Dim label As New Label()

    ' 设置进度条控件的位置和大小
    progressBar.Location = New Point(10, 10)
    progressBar.Size = New Size(200, 20)

    ' 设置标签控件的位置和大小
    label.Location = New Point(10, 40)
    label.Size = New Size(200, 20)

    ' 将进度条和标签控件添加到窗体中
    Me.Controls.Add(progressBar)
    Me.Controls.Add(label)

    ' 创建一个计时器控件
    Dim timer As New Timer()

    ' 设置计时器的间隔为100毫秒
    timer.Interval = 100

    ' 添加计时器的Tick事件处理程序
    AddHandler timer.Tick, Sub()
                               ' 更新进度条的值
                               progressBar.Value += 1

                               ' 更新标签的文本
                               label.Text = "进度：" & progressBar.Value & "%"

                               ' 当进度条的值达到最大值时，停止计时器
                               If progressBar.Value = progressBar.Maximum Then
                                   timer.Stop()
                                   MessageBox.Show("任务完成！")
                               End If
                           End Sub

    ' 设置进度条的最小值和最大值
    progressBar.Minimum = 0
    progressBar.Maximum = 100

    ' 启动计时器
    timer.Start()
End Sub

在上述代码中，我们首先创建了一个进度条控件和一个标签控件，并将它们添加到窗体中。然后，我们创建了一个计时器控件，并设置了计时器的间隔为100毫秒。在计时器的Tick事件处理程序中，我们更新进度条的值和标签的文本，并在进度条的值达到最大值时停止计时器并显示一个消息框。最后，我们设置了进度条的最小值和最大值，并启动计时器。

请注意，上述代码示例仅为演示目的，并且可能需要根据您的具体需求进行调整。