フォームA Private Sub ButtonA_Click with new フォームB .Show AddHandler .OnCloseB, AddressOf A End With End Sub
Private Sub A ← ここでRemoveHandler は必要? End Sub
フォームB Public Event OnCloseB(ByVal sender As Object, ByVal e As EventArgs) Private Sub B_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing RaiseEvent OnCloseB(Me, New System.EventArgs) End Sub