Public Event closefather As childclose
Private Sub Form1_Closed(sender As Object, e As System.EventArgs)
RaiseEvent closefather()
End Sub
Public Delegate Sub childclose()
子窗体:
Dim ff As New Form1()
ff.closefather += New childclose(Me.closethis)
ff.Show()