はじめて投稿させていただきます。VB6でCADの周辺開発を2年やってます。
CADの提供するAPIを参照設定しておいて
    Dim hss As HybridShapes
    Dim ss1 As AnyObject
    Set hss = Body1.HybridShapes
    Set ss1 = hss.Item(i)
    aa = typename(ss1)
を実行したら、aaは"Object"となります。しかし、ウォッチウィンドウでは「型」は、
AnyObject/Object/HybridShapePoint というように私の知りたい全ての情報がモニターできておりま
す。
配列の１つのtypenameは"Object"になるというのは色々調べて理解したのですが
どうにかしてHybridShapePointという文字が取り出せないものでしょうか。
よろしくお願いします。