非同期で開いたフォーム(WinForms)を閉じたときのイベント処理

マルチウィンドウで動作させる場合によく使う処理。
リストなどを使って複数保持することできめ細かな制御ができる。

    '宣言 
    Private Form1 as Form

    'フォーム起動
    Private Sub Form1_Open()

        If Form1 Is Nothing Then
            Form1 = New Form
            AddHandler Form1.FormClosed, AddressOf Form1_Closed
            Form1.Show()
        End If

        Form1.Activate()

    End Sub

    'フォーム終了時イベント
    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs)
        Form1 = Nothing
    End Sub