如何在VB.NET中获取所有打开的表单在每个表单下同名的调用子

Public Class FormManager
    Public Shared OpenForms As New List(Of Form)()

    Public Shared Sub AddForm(ByVal form As Form)
        OpenForms.Add(form)
    End Sub

    Public Shared Sub RemoveForm(ByVal form As Form)
        OpenForms.Remove(form)
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    FormManager.AddForm(Me)
End Sub

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs) Handles MyBase.FormClosed
    FormManager.RemoveForm(Me)
End Sub

For Each form As Form In FormManager.OpenForms
    Dim methodName As String = "SubName" ' 替换为子程序的名称
    Dim methodInfo As System.Reflection.MethodInfo = form.GetType().GetMethod(methodName)
    If methodInfo IsNot Nothing Then
        methodInfo.Invoke(form, Nothing)
    End If
Next