VB.net如何让图片框picturBox1沿斜线滑动（动画效果）？？

[xiamin]

如何让图片框picturBox1沿斜线滑动（动画效果）？
例如（100，20）滑动到（300，350）像素位置处。

[tjficcbw]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        picturBox1.left = 100
        picturBox1.top = 20

        For i = 1 To 10000
            picturBox1.left = picturBox1.left + 300 * i / 10000
            picturBox1.top = picturBox1.top + 350 * i / 10000

        Next
        '这个10000是可以调节的，是移动速度
    End Sub

[tjficcbw]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i = 0 To 100000
            PictureBox1.Left = 100 + 300 * i / 100000
            PictureBox1.Top = 20 + 350 * i / 100000
            Application.DoEvents()
        Next
        '这个10000是可以调节的，是移动速度
    End Sub