No.1 naka 現在VB2010で再チャレンジして動きました。 ありがとうございます。 質問ですが Dim P_D As zwDrawCAD.Document P_D = cadApplication.ActiveDocument この2行だけは、各サブルーチンで書き込まないと動きませんが、どこかに1か所書き込めば認識することはできないのでしょうか。
