如何使用VB.net验证通过循环创建的textbox数组元素？

Imports System.Windows.Forms

Public Class Form1
    Inherits Form

    Private textBoxArray() As TextBox

    Public Sub New()
        ' 初始化窗体和控件
        Me.Text = "验证文本框数组"
        Me.Size = New Size(300, 200)

        ' 创建文本框数组
        textBoxArray = New TextBox(4) {}

        For i As Integer = 0 To textBoxArray.Length - 1
            textBoxArray(i) = New TextBox()
            textBoxArray(i).Location = New Point(50, 50 + i * 30)
            Me.Controls.Add(textBoxArray(i))
        Next

        ' 添加验证事件处理程序
        AddHandler textBoxArray(0).Validating, AddressOf TextBox_Validating
        AddHandler textBoxArray(1).Validating, AddressOf TextBox_Validating
        AddHandler textBoxArray(2).Validating, AddressOf TextBox_Validating
        AddHandler textBoxArray(3).Validating, AddressOf TextBox_Validating

        ' 添加按钮
        Dim button As New Button()
        button.Text = "验证"
        button.Location = New Point(150, 150)
        AddHandler button.Click, AddressOf Button_Click
        Me.Controls.Add(button)
    End Sub

    Private Sub TextBox_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs)
        Dim textBox As TextBox = DirectCast(sender, TextBox)

        ' 验证文本框的内容是否为空
        If String.IsNullOrEmpty(textBox.Text) Then
            MessageBox.Show("文本框不能为空！", "验证错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            e.Cancel = True
        End If
    End Sub

    Private Sub Button_Click(sender As Object, e As EventArgs)
        ' 遍历文本框数组，手动触发验证事件
        For Each textBox As TextBox In textBoxArray
            textBox.Focus()
            textBox.Validate()
        Next

        MessageBox.Show("验证通过！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Public Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class