你的代码没多少关联性嘛，既然你已经把运动坐标都存进数组，那你应该在时钟事件里循环读数组才能转起来，在就是数组维数只需要0-359,不需要-360-360，你在过程zubiao里也是从0-360存的，和你定义的数组维数矛盾。代码改如下可转起来。
Option Explicit
Dim Round As Integer
Const PI = 3.14159
Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
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()
Dim x As Integer, y As Integer
Dim L1 As Integer
L1 = Val(Text1.Text)
x = L1 * Cos(Round * PI / 180)
y = L1 * Sin(Round * PI / 180)
Picture1.Cls
Picture1.Circle (0, 0), 10, RGB(0, 0, 0)
Picture1.Circle (x, y), 10, RGB(255, 0, 0)
Picture1.Line (0, 0)-(x, y), RGB(0, 0, 0)
Round = Round + 1
If Round = 360 Then Round = 0
End Sub

Private Sub Timer1_Timer()
Call zuobiao
Static k2 As Integer
k2 = k2 + 2
If k2 > 360 Then k2 = 0
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

我没改你程序的结构，只改了这个错误的地方，其他地方我没看。你自己琢磨吧，感觉 Call zuobiao 在程序里应该只需要调用一次就可以了。

谢谢，麻烦您了，每次都是您帮忙，谢谢您了，这个就是上回哪个运动图，我开始搞了，嘿嘿，下回不会了，麻烦您再指导，谢谢您了，，，，

谢谢，版主，嘿嘿

谢谢，谢谢

设定一个角速度k,圆所处位置的仰角为kk，试试。很简单
kk=0
Private Sub Timer1_Timer()
kk=kk+k
Picture1.Circle (l*cos(kk), l*sin(kk)), 10, RGB(255, 0, 0)
End Sub

给你看个东西，他就是搞的数组，因为要好多机构那

你看看他就用的数组，因为机构比较多

所以我也想搞他的那样的，因为如果是你们设计的那样不能进行连接运用的，，，

给你看个东西，就是数组的，因为麻烦，随意我先搞小的