大家帮忙看看，型文件加载怎么不行了呢？

hangc

这段语句执行没有错误返回，用shape命令查看型被装入了，但是在使用线形画线时，线形并没有将型文件潜入到线中，如果用手工load一下就可以，那位兄弟遇到过，请指教？

    Dim shapeFileToLoad As String
    shapeFileToLoad = App.Path & "\Template\Fonts\myShx.shx"
    thisdrawing.LoadShapeFile shapeFileToLoad