mo开发菜鸟问题

<P>在VB窗体中添加一地图空间，一个listbox，一个Button，运行时地图窗口自动加载MO示例数据World中的Country.shp图层文件。要求点击button,在地图上画多边形，将与多边形相交的国家名添加到LISTbox中，此时双击LIstbox中的项目，地图窗口闪烁相应的国家。就闪烁部分有点问题，高手不吝赐教啊！</P>
<P>相关代码：</P>
<P>Dim dc As New DataConnection<BR>Dim layer As MapLayer<BR>Dim poly As MapObjects2.Polygon<BR>Dim rec As MapObjects2.Recordset</P>
<P>Dim i As Integer</P>
<P>Private Sub selcountry()<BR>List2.Clear<BR>Set layer = Map1.Layers("country")<BR>Set poly = Map1.TrackPolygon<BR>Set rec = layer.SearchShape(poly, moAreaIntersect, "")<BR>Do Until rec.EOF<BR>List2.AddItem rec.Fields("name").ValueAsString<BR>rec.MoveNext<BR>Loop<BR>Set rec = Nothing<BR>End Sub<BR></P>
<P>Private Sub Command2_Click()<BR>i = 1<BR>Map1.MousePointer = moCross<BR>End Sub<BR></P>
<P><BR>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>If i = 1 Then<BR>selcountry<BR>End If<BR>End Sub<BR></P>