VB我在窗口上点击一个地点让一个图片一点点移动到那里

显示控件的移动过程，这还不简单。
'例子需控件：Picture1。如果需要，你可以在属性窗口为它取名为xiaoyao，然后将代码中的所有Picture1替换为xiaoyao即可。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim x1 As Single, y1 As Single, x0 As Single, y0 As Single
Dim I As Long, S As Long

S = 20 '移动次数
x0 = Picture1.Left: y0 = Picture1.Top
x1 = (X - Picture1.Width * 0.5 - x0) / S
y1 = (Y - Picture1.Height * 0.5 - y0) / S
For I = 1 To S
Picture1.Move x0 + x1 * I, y0 + y1 * I
DoEvents
Sleep 10 '延时 10 毫秒
Next
End Sub

Private Sub btnMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnMain.MouseDown
Me.Cursor = Cursors.Hand
m_MousePosX = e.X
m_MousePosY = e.Y
End Sub

Private S