从父窗口回发的模式弹出窗口中清除VB.NET数据

Public Class ParentForm
    Private Sub OpenChildForm()
        Dim childForm As New ChildForm()
        AddHandler childForm.ClearData, AddressOf ClearData
        childForm.Show()
    End Sub

    Private Sub ClearData()
        TextBox1.Text = ""
        ComboBox1.SelectedIndex = -1
        CheckBox1.Checked = False
        RadioButton1.Checked = False
        ListBox1.Items.Clear()
        DataGridView1.DataSource = Nothing
        ' 清空其他自定义控件的数据
    End Sub
End Class

Public Class ChildForm
    Public Event ClearData()

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RaiseEvent ClearData()
    End Sub
End Class