10.使用Image控件和Timer控件自制简单的动画，实现图形的旋转。单击“开始旋转”按钮时能够实现旋转；单击“暂停”按钮时能够停止；单击“退出”按钮时能够退出程序。
Dim X As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
X = 1
End Sub
Private Sub Timer1_Timer()
X = X + 1
If X > 12 Then X = 1
Image1.Picture = LoadPicture(App.Path & "\tx\" & X & ".bmp")
End Sub
最后一段这个不是很理解有大佬告知吗，
最后一句话图片总是运行不上去

1

1

1

这个图形旋转应该加载不同图片实现效果旋转，而后面那段应该是加载不同的图片//已存在的

动画就是N张图片循环播放产生，你这个图片的名称是连续的(1.bmp、2.bmp至12.bmp)，X=1是第一张，X=X+1就是定位到下一张，X > 12 then X =1就是X=13时重新切换到第一张(X=13时加载的图片应是13.bmp，已经超出了你的图片范围，所以要重新定位到第一张，也是动画循环的必要)，后面的Image1.Picture...就是加载当前动画图片

看标题我还以为在说用API直接转图片呢......
getpixel/setpixel/pset都慢得日牛。用Getbitmapbits/Setbitmapbits直接读写内存虽然快，整体换色处理什么的操作还行，但换方向就搞不懂是如何在内存中读写的规律了。