Public Sub time()
Xn = n * (Xt - X0) + X0
Yn = n * (Yt - Y0) + Y0
n = n + k
main.role.Picture = scr.PictureClip1.GraphicCell(ri + Int(r / 4))
r = r + 1
Call movemap
If r = 16 Then r = 0
If (Xn - X0) ^ 2 >= (Xt - X0) ^ 2 Or GetPixel(main.Picture3.hdc, Xn + main.role.Width / 2, Yn + main.role.Width / 1.1) = 0 Then
Call stopwalk
End If
Call draw(xs, ys)
End Sub
Public Sub stopwalk()
n = n - 2 * k
Call time
main.Timer1.Enabled = False
main.role.Picture = scr.PictureClip1.GraphicCell(ri)
End Sub
就是上面程序，vb提示call time 堆栈空间溢出。
这怎么改改才好？

具体该怎么样改呢，版主？把call time中的内容写成循环嵌入到stopwalk中去？还有什么叫递归调用啊？求教育啊！我新手。

thank you！