''''''动态图层事例               '要求对象   函数或子过程未定义
    Set Map.Layers.AnimationLayer = Layers(3)
    For Each lyr In Map.Layers
        If Map.Layers.AnimationLayer = lyr Then
            Form1.Show
            Form1.Print "haha"
        End If
    Next

'此 Visual Basic 示例显示 Parts 集合和 Points 集合如何循环显示所选图元中的所有点。
    Dim obj As MapXLib.Feature
    Dim pts As New Points
    Dim pt As New Point

    Set obj = Map1.Layers(1).Selection(1)
    For Each pts In obj.Parts
        For Each pt In pts
            Debug.Print pt.X, pt.Y
        Next
    Next

这段代码也有问题！！

　Dim fr As Feature                                     '错误
    Dim frs As Features
    Set frs = Map1.Layers(1).SearchAtPoint(-96.688486, 40.81641)    '类型不匹配
    Set frs = Map1.Layers(1).SearchAtPoint((-96.688486, 40.81641))   '语法错误
    For Each fr In frs
        MsgBox fr.Name
    Next