イッツキャドコミュニティ

開発者さんに質問です。

Private Sub CommandButton1_Click()

Dim objScad As Object

Set objScad = CreateObject("ItsSuperCAD.Draw")
objScad.Application.Visible = True

' Set objScad = Nothing

End Sub

上記のコードを実行すると一瞬、何か起動したように
見えるだけでIt'sCADが起動しません。


ブレークポイントを設けて実行すると、

＞ objScad.Application.Visible = True

のところで確かに起動したCADが見えるようになりますが、

＞End Sub

までくるとCADが終了してしまいます。

＞' Set objScad = Nothing

はコメントアウトしてあるし、Close系のメソッドも無いので
いきなり終了してしまうのはチョッと。。。^_^;

一応タスクマネージャにプロセスが残ってないので
いいんですけど。。。
今現在の仕様でしょうか？

実行環境
It's超CAD3　Ver9.52
Excel2002　SP-3
WindowsXP　SP-2