GetOwnerTransparency无法记录图层透明度是怎么回事呢？

<P>在VBA中，利用.GetOwnerTransparency 方法可以准确获得图层透明度改变后的值，但是在VB中通过该方法，无论图层透明度怎么改变，得到的透明度值始终为0，请问这是怎么回事？如何解决？麻烦各位高手能给予答复，谢谢！</P>
<P>代码如下？</P>
<P>dim pscene as iscene<BR>Set pScene = FrmMain.sc3DMap.Scene<BR>Dim pSG As ISceneGraph<BR>Set pSG = pScene.SceneGraph<BR>'read (and activate) layers' transparency<BR>Dim currentTransGeom As Long    '记录透明度<BR>pSG.GetOwnerTransparency pLayer, currentTransGeom                 'Get the transparency percentage of an owner as stored in the scene graph<BR>获得的currentTransGeom值始终为0！why？</P><img src="images/post/smile/dvbbs/em12.gif" />