Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f2 As New Form2
AddHandler f2.FormClosed, AddressOf f2_FormClosed
f2.Show()
End Sub
Private Sub f2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs)
Me.Close()
End Sub
End Class
|