"不正な処理を行ったので．．．"にならないようにするには？ (ID:103587)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MDI子フォームを複数開いたあと，子フォームの×で閉じると次のフォームの×が灰色になっていて，×をクリックすると"不正な処理を行ったので強制終了します．"と出るのです．詳細を見ると"ページ違反"と書いてあります． Dim frmD as Form Select Case I Case 1:Set frmD = New Form1 Case 2:Set frmD = New Form2 Case 3:Set frmD = New Form3 End Select frmD.Show こんなコードでいいんでしょうか？