<!--地图事件-->
Sub mymap_onMapLoaded(map)
onMapLoaded map 
End Sub

Sub mymap_onDigitizedPolygon(map, numPoints, points)
'onDigitizedPolygon map, numPoints, points
End Sub

sub mymap_onDigitizedPoint(map,point)
onDigitizedPoint map,point
end sub

Sub mymap_onDoubleClickObject(mapobject)
mapObject.DoubleClickHandled = onDoubleClickObject(mapobject)
End Sub

<!--鹰眼事件-->
Sub mymap_onViewChanged(map)
onViewChanged map
End Sub

Sub mymap_onViewChanging(map)
onViewChanging map
End Sub