关于接口的实现，只能低层实现高层

Public   Sub  MyTest()

     Dim  pMxDocument  As  IMxDocument
     Dim  pActiveView  As  IActiveView
     Dim  pMap  As  IMap
    
     Set  pMxDocument  =  ThisDocument
    
     ' /用Map实现IActiveView接口
     ' /Set pMap = pMxDocument.FocusMap
     ' /Set pActiveView = pMap
    
     ' /用ActiveView来实现IMap接口
     ' /以下代码会出错
     ' /就如同说：车 是 赛车，这样说是错误的
     ' /IActiveView是更高层的，IMap是底层的
     ' /只能是低层实现高层
    
     Set  pActiveView  =  pMxDocument.ActiveView
     Set  pMap  =  pActiveView
    
    
End Sub