先准备几幅图，格式不论，但Icon图标最理想。图的数量将是光盘旋转效果的决定因素之一，一般八张比较合适。这八幅图必须是光盘处于0度、45度、90度……315度时的实际模样。
下一步：给工程添加三个控件，ImageList一个，Image一个，Timer一个。ImageList是用来装载图片的，请将准备好的图片按顺序一一添加到此控件中；Image控件则是显示旋转光盘的容器了，将其放到合适的位置即可，必要时给它加载一幅图片；Timer控件则用于控制光盘的旋转。
最后，编写代码：
OptionExplicit
DimiasInteger图标索引变量
PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=100可根据需要作调整
i=0图标索引变量初值
EndSub
PrivateSubTimer1_Timer()
i=i 1随控时器变化每次加1
若索引号大于图标总数则退回第一幅
Ifi>ImageList1.ListImages.CountTheni=1
从ImageList控件中装载图标
Image1.Picture=ImageList1.ListImages(i).Picture
EndSub
短短几行代码，光盘就转动起来了！其实，你还可以略作改造，用旋转并移动的光盘动画来代替你的播放进度条，则会更有创意哦。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
