向窗口批量添加控件，并修改内容。尝试在当前窗体及其所有子控件中查找一个名为“Lab“ + 字段名的Label控件，并将其作为Label类型的对象返回给变量标签

   Private Sub 开票窗口_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       添加标签()
   End Sub
   Private Sub 添加标签()
       Dim 字段 As String() = {"数电票号码", "购方识别号", "购买方名称", "开票日期", "货物或应税劳务名称", "规格型号", "单位", "数量", "单价", "金额", "税率", "税额", "价税合计", "开票人", "备注"}

       Dim 上一个标签底部 As Integer = 100 ' 初始顶部距离为100
       Dim 左边距 As Integer = 20 ' 所有Label的左侧距离

       For Each 字段名 As String In 字段
           ' 创建Label并设置其属性
           Dim 标签 As New Label With {
                .Name = "Lab" & 字段名,
               .Text = 字段名,
               .BackColor = Color.Transparent,
               .AutoSize = True, ' 自动调整大小以适应内容
               .Location = New Point(左边距, 上一个标签底部)
           }
           Me.Controls.Add(标签)
           上一个标签底部 = 标签.Bottom + 6       ' 更新下一个Label的顶部距离
       Next
   End Sub
   Private Sub 修改标签内容(字段名 As String, 新内容 As String)
       Dim 标签 As Label = TryCast(Me.Controls.Find("Lab" & 字段名, True).FirstOrDefault(), Label) '尝试在当前窗体及其所有子控件中查找一个名为"Lab" + 字段名的Label控件，并将其作为Label类型的对象返回给变量标签。如果找不到这样的控件，或者找到的控件不是Label类型，标签变量将被赋值为Nothing。
       If 标签 IsNot Nothing Then
           标签.Text = 新内容
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       修改标签内容("购方识别号", "新的购方识别号")
   End Sub