VB+ARCGIS9.0请教如何让你OnMouseDown的点移动起来

<P>小弟要实现的功能是：鼠标点击MapControl1，显示一个点，然后用button实现点在框架中的移动，并且移动到边界的时候能够反弹...</P>
<P>以下是我实现显示点的函数</P>
<P>Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double)</P>
<P>    Set pPoint = New Point</P>
<P>     pPoint.x = mapX<BR>     pPoint.y = mapY</P>

<P>MapControl1.DrawShape pPoint</P>
<P>然后安装一个time控件，设置执行的时间</P>
<P>接下来timer里面的函数怎么写？</P>
<P>mapX = mapX + 100<BR>   mapY = mapY + 100<BR>   pPoint.x = mapX<BR>   pPoint.y = mapY    ???</P>
<P>我只知道drawshape是显示图，那么删除以前的点的命令是什么？</P>

<P>小弟我新学的，请给详细的代码。。谢谢</P>

drawshape画的是临时的,Refresh一下就没有了

<P>哦  晓得了  能给我说说代码么？</P>