放大到对象功能，怎么总是先闪才放大呢？

<P>下面是我的一段放大到对象的代码，但结果总是对象先闪，然后再放大到对象，我需要的结果是先放大，然后再闪，我的代码是按照我需要的顺序写的，怎么结果就相反呢？谁能帮我看看？谢谢</P>
<P>Public Function ZoomToSelected(Map As MapControl, pFeature As IFeature)
Dim featureExtent As IEnvelope
 Dim iP As IPoint
 Set iP = New Point
 iP.X = pFeature.Extent.Envelope.XMax
iP.Y = pFeature.Extent.Envelope.YMax
Dim pEnv As IEnvelope
Set pEnv = pFeature.Extent.Envelope
  If pEnv.Height = 0 And pEnv.Width = 0 Then
      Map.CenterAt iP
 Else
  pEnv.Expand 2, 2, True
  Map.Extent = pEnv
  
   End If
   Map.refresh
   Map.FlashShape pFeature.shape, , 100
End Function</P>

<P>能不能延时500毫秒， 再继续闪呢！！</P>