I think this is what you are looking for:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Prj2Form1 As New Project2.Form1
AddHandler Prj2Form1.FormClosed, AddressOf Project2FormClosed
Prj2Form1.Show()
End Sub
Private Sub Project2FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs)
If TypeOf sender Is Project2.Form1 Then
Dim frm As Project2.Form1 = DirectCast(sender, Project2.Form1)
RemoveHandler frm.FormClosed, AddressOf Project2FormClosed
MsgBox("Project2 Form Closed")
End If
End Sub
End Class
Please Read:
AddHandler[
^] and
RemoveHandler[
^]