这是我写的代码，可有点问题，麻烦看看了，谢谢。

Option Explicit
Dim xa(-360 To 360) As Double
Dim ya(-360 To 360) As Double
Const PI = 3.14159
Public Sub zuobiao()
Dim L1 As Integer
L1 = Val(Text1.Text)
Dim k1 As Integer
For k1 = 0 To 360
xa(k1) = L1 * Cos(k1 * PI / 180)
ya(k1) = L1 * Sin(k1 * PI / 180)
Next k1
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Picture1.Cls
End Sub

Private Sub Form_Load()
Picture1.Scale (-80, 80)-(80, -80)
Picture1.Circle (0, 0), 10, RGB(0, 0, 0)
Picture1.Circle (20, 0), 10, RGB(255, 0, 0)
Picture1.Line (0, 0)-(20, 0), RGB(0, 0, 0)
End Sub

Private Sub Timer1_Timer()
Call zuobiao
Dim k2 As Integer
Picture1.Circle (0, 0), 10, RGB(0, 0, 0)
Picture1.Circle (xa(k2), ya(k2)), 10, RGB(255, 0, 0)
Picture1.Line (0, 0)-(xa(k2), ya(k2)), RGB(0, 0, 0)
End Sub

谢谢了，帮帮忙，麻烦了，谢谢了，他老是不运动，我的意思是课一看见他运动的过程，就和手表指针一样的运动，代码写好了，有点问题，期望您能指导一下，谢谢了。

大致看了看代码.
你在一个时间间隔内执行一次zuobiao就把xa(k1),ya(k1)从0到360重新算一次值.其结果就是得到两组固定值的数组.
另外一个时间间隔,定义一次k2,显然每次都是在timer1_timer过程中,每次都是在xa(0),ya(0).处画圆.由第一个问题可知,xa(0)=L1,ya(0)=0.根本不会发生改变,
由此圆转不起来

咋看着这么麻烦，我做的钟表和三球运动比这个简单多了

那怎么改一下，可以转动起来？谢谢了

问题比较多,在你原代码基础上调了一下.除了代码,注意看窗体和图形控制的属性