Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim frm2 As New Form2 AddHandler frm2.FormClosed, AddressOf Form2Closing frm2.Show() Me.Hide()

End Sub

Private Sub Form2Closing(sender As Object, e As FormClosedEventArgs) Me.Show() RemoveHandler DirectCast(sender, Form2).FormClosed, AddressOf Form2Closing End Sub