请教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 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

谢谢！
请指点！

建议你看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

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

<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>

<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>

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

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