在VB.net中将值从child传递给mdi parent

Public Class ChildForm
    Public Property ValueToPass As String
End Class

Public Sub PassValueToParent()
    Dim parentForm As MDIParent1 = CType(Me.ParentForm, MDIParent1)
    parentForm.ValueFromChild = ValueToPass
End Sub

Public Class MDIParent1
    Public Property ValueFromChild As String
End Class

Public Sub HandleValueFromChild()
    ' 处理从子窗体传递的值
End Sub

Private Sub ChildForm_FormClosed(sender As Object, e As FormClosedEventArgs) Handles ChildForm.FormClosed
    HandleValueFromChild()
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ValueToPass = TextBox1.Text
    PassValueToParent()
End Sub