Erase関数のエラーを消すには？ (ID:107608)

名前

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

本文 ソースをコピペして、試してみましたが 自分の環境では特にエラーはでなかったです。 根本的なところでスペルミスとかないでしょうか？ たいした助言でなくて申し訳ないのですが(-_-;; 参考までに自分の実行ソースと動作内容を。 <Module1.bas> Public Type AMENUtyp aa As Byte bb As Byte End Type Public Type BMENUtyp cc As Byte dd As Double End Type Public Type CHENGEtyp AMENU(4) As AMENUtyp BMENU(44) As BMENUtyp End Type Public CHENGE As CHENGEtyp <form1.frm> （標準EXEにコマンドボタンを１つ貼り付けました） Private Sub Command1_Click() CHENGE.AMENU(2).aa = 1 CHENGE.AMENU(2).bb = 1 CHENGE.BMENU(10).cc = 1 CHENGE.BMENU(10).dd = 1 Erase CHENGE.BMENU Erase CHENGE.AMENU End Sub フォーム中、問題の箇所で中断して、１行ずつ実行して Erase前後での値を確認しましたが、Erase前に値１が設定され、 Erase後にクリアされていました。 コンパイルも問題なくできています。 以上、参考にならないかもで申し訳ないのですが、報告まで。