3dxml控件如何在VB中使用？是一个非常强大的预览软件

我下载了一个非常好的预览软件3DXMLPlayerSetup.exe，
大家可在http://www.3ds.com/cn/products-solutions/3d-for-all/3d-xml/1/?no_cache=1
免费下载，那是CATIA官方网站大家请放心。安装后在VB部件中会调入这个软件中的预览控件，名字为：3DForAllOCXViewer.ocx，其有属性DocumentFile是输入文件路径的。可是在代码中输入没有作用。我的代码是：
Private Sub Command1_Click()
Dim str As String
str = "C:\sample.3dxml"
With ENOV3DFAActiveX1
    .DocumentFile = str
End With
End Sub请感兴趣的朋友们帮忙研究一下怎么解决这个问题，送上300分表示感谢。
答者有分