添加一个Timer控件适当设置Interval属性(控制转速)
Dim x As Single '原来你用的是数组,其实没必要这里改成单变量了
Me.Cls '这里有修改,另外原来的Show意义不明
'这里由原来的一句修改为了两句其实原来的一句目的就是设置这两个属性的
j = (j + 10) Mod 360 '增加了一句,通过j的变化实现图形旋转其中的10可以自己调整,影响旋转速度和流畅度
'下面加上了┅个j就是在一开始的图形基础上旋转j的角度(其实前面的语句也加上了)
'另外还把数组改成了单变量,后面也一样以下不再重复