问：ﳿ 用VB方法画一圆的外摆线,使一个图片在曲线轨迹上移动的代码

Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Single, k As Single
a = 200
b = 100
d = 50
For i = 0 To 360
j = (a + b) * Cos(i) - b * Cos((a + b) / d * i)
k = (a + b) * Sin(i) - b * Sin((a + b) / b * t)
PSet (1500 + j * 2, 1500 + k * 2)
Next
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim j As Single, k As Single
a = 200
b = 100
d = 50

j = (a + b) * Cos(n) - b * Cos((a + b) / d * n)
k = (a + b) * Sin(n) - b * Sin((a + b) / b * n)

Picture1.Top = 1500 + k * 2
Picture1.Left = 1500 + j * 2
n = n + 1
If n > 360 Then n = 0
End Sub