サブ画面でのメッセージボックスの処理

//メインフォーム
private void button1_Click(object sender, System.EventArgs e)
{
    Form2 f = new Form2();
    if (DialogResult.Cancel != f.ShowDialog()) this.Close();
}

//サブフォーム
private void button1_Click(object sender, System.EventArgs e)
{
    DialogResult dr = MessageBox.Show("終了","終了",
                      MessageBoxButtons.YesNo,MessageBoxIcon.Question);
    if (dr == DialogResult.Yes)
    {
        this.DialogResult = dr;
    }
    this.Close();
}

'frmAのコード

Private Sub Button1_Click(ByVal sender As System.Object, _

                          ByVal e As System.EventArgs) Handles Button1.Click

        Dim frmB As New frmB

        'frmBをモーダル表示

        frmB.ShowDialog(Me)

        '(以下はfrmBが×やAlt+F4で閉じられるまで処理されない)

        MsgBox("frmB was closed")

End Sub



'frmBのコード

Private Sub Button1_Click(ByVal sender As System.Object, _

                          ByVal e As System.EventArgs) Handles Button1.Click

        Select Case MessageBox.Show("システムを終了しますか？", _

              "終了確認", MessageBoxButtons.OKCancel, _

              MessageBoxIcon.Question)

            Case DialogResult.OK

                'ＯＫが押されたら全て終了

                Application.Exit()

            Case DialogResult.Cancel

                'キャンセルを押されたときの処理

                MsgBox("Cancel")

        End Select

End Sub