在动态创建的表单中调用函数- vb.net

Imports System.Windows.Forms

Public Class MainForm
    Private Sub CreateDynamicForm()
        ' 创建新的表单对象
        Dim dynamicForm As New Form()
        
        ' 设置表单属性
        dynamicForm.Text = "动态创建的表单"
        dynamicForm.Size = New Size(300, 200)
        
        ' 创建按钮控件
        Dim button As New Button()
        button.Text = "调用函数"
        button.Size = New Size(100, 30)
        
        ' 设置按钮的点击事件处理程序
        AddHandler button.Click, Sub(sender As Object, e As EventArgs)
                                     ' 调用函数
                                     Dim result As Integer = Calculate(10, 20)
                                     MessageBox.Show("计算结果：" & result.ToString())
                                 End Sub
        
        ' 将按钮添加到表单中
        dynamicForm.Controls.Add(button)
        
        ' 显示表单
        dynamicForm.ShowDialog()
    End Sub
    
    Private Function Calculate(num1 As Integer, num2 As Integer) As Integer
        ' 执行计算操作
        Return num1 + num2
    End Function
    
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 在主表单加载时创建动态表单
        CreateDynamicForm()
    End Sub
End Class