请教VB中如何实现图元闪烁？

请教VB中如何实现图元闪烁？
      For Each ftr In lyr.Selection
        Formmain.Map1.CenterX = ftr.CenterX
        Formmain.Map1.CenterY = ftr.CenterY
   'Set ftr1 = ftr
      Set ftr.Style.RegionColor = miColorRed
      ftr.Update
      Next<img src="images/post/smile/dvbbs/em09.gif" />

我不闪烁的原因找到了，是Dim i As Integer有问题，应该定义成全局变量，不然timer每次循环时，i都每次申明了一次，所以每次进这个timer循环i都是一样的，定义成全局变量就好了

miFeatureTypeSymbol这种类型的点图元，能不能靠改变这个图元的颜色来闪烁呢？是用style的什么属性啊？

<P>但如果我把这个把图元居中加上，地图的很大部分都在拼命闪烁</P><P>If Not m_bCenter Then</P><P>m_bCenter = True
Map1.CenterX = ftr.CenterX
Map1.CenterY = ftr.CenterY
Map1.Refresh
End If
End Sub</P>

<P>Private Sub Timer1_Timer()
Dim ftr  As MapXLib.FindFeature
Dim lyr  As MapXLib.Layer
Set lyr = Map1.Layers("position")
Set ftr = lyr.Find.Search("2")
Dim i As Integer</P><P>If i / 2 = 0 Then
lyr.Selection.Replace ftr
i = 1
Else
lyr.Selection.ClearSelection
i = 0
End If
ftr.Update</P><P>为什么它就是不闪啊？</P>

要实现图元闪烁可以通过改变图元的大小和颜色，再加一个时钟控件就可以了，论坛有这方面的源代码可以找一下

建议你看MAPX的如下相关帮助！
Style.RegionBackColor property
Style.RegionBorderColor property
Style.RegionBorderStyle property
Style.RegionBorderWidth property  
Style.RegionBorderWidthUnit property
Style.RegionColor property
Style.RegionPattern property
Style.RegionTransparent property

请高手指点一下，如何实现面区域图元颜色（闪烁）变换
 Dim ftr As New MapXLib.Feature
    Dim ftrs As New MapXLib.Features
    For Each ftr In lyr.Selection
          s = ftr.FeatureKey
          ftr.Style.RegionColor = miColorRed
          ft.Update EmptyParam, EmptyParam
     next

谢谢！
请指点！