写一个VB程序。（其实就是一道VB二级考试练习题，南开上机百题里面的）

控件有五：

一个图片框（上面分别画了一个打球和一个小球）
一个水平滚动条
两个命令按钮（一个“停止”，一个“开始”）
还有一个时钟

要求有三：

（1）单击开始按钮后，小球绕着打球做圆周运动
（2）可以通过水平滚动条调节小球的速度
（3）单击停止按钮，小球停止运动

[此贴子已经被作者于2007-9-1 16:02:07编辑过]

主题：请总结你的提问贴，谢谢合作。

URL：http://bbs.bc-cn.net/viewthread.php?tid=160759&star=at270349#270349

主题：怎么自定义对象？

======
为什么要总结提问？
答：见置顶帖。
1、在自己得到了别人的帮助以后，一定在最后总结一下，请不要一声不吭的走人。
总结的内容包括：1、问题到底出在哪里。2、通过第几楼的方法解决的。
这种总结，其他人很有用，通过看总结他们可以知道第几楼的方法是对的。
在自己的求助帖最后做总结是对其他人的奉献，是对高手最好的回报。
如果嫌总结浪费自己的时间，麻烦您最后简短的说声“谢谢”吧。

哈哈……人心的版主要求我总结一下（看来还是蛮敬业的哦）。
很久没有上这里了，提了什么问题自己都差不多忘记了。
今天来看了看，大家好像对这个问题不感兴趣，或者觉得太简单了吧，倒是斑竹来捧场（先谢啦^^）给了个及其模糊的答复。

还好不管怎样，我自己觉得总算弄清除了，就在前几天做VB练习题的时候，突然灵感大发，就想通了。真的是“灵感来自勤奋”
其实这里的自定义对象指的就是自定义数据类型。

比如说：

type student

name as string

phone as string

end type

这样就定义了一个新的数据类型（一般参考书上的说法），更真确的说（个人觉得）是定义了一个新的对象，因为它跟控件很相似！明白了这点很重要。

在引用的时候格式如下：

dim s as student '定义一个student类型的变量

s.name="小明" '哈哈，这里是不是很像设置控件属性的样子啊？
s.phone="88888"

就是这么回事！总结完毕！版主批示！

一、在窗体中添加一个Timer控件，在水平调动条事件设置相应的Timer的Interval属性的值。
二、在Timer的事件中添加下面的功能：
　　１、清空图片框；
２、以窗体中的图片框中心为圆心画两个圆，一个实心的(你说的大球)，一个空心的圆(小球的运行轨迹)，空心的圆要比实心的大；
3、按角度（初如角度为0）计算出空心圆弧上当前角度的(X,Y)坐标，以此坐标为圆心再画第三个圆（实心的，也就是你说的小球）；
　　４、记录当前角度并加上一定的角度数值（准备下一次画圆使用）

　　这样当Timer的事件不断的被系统触发，显示的效果就是一个小圆绕着大圆的轨迹转圈了。
三、窗体中的两个Command控件分别控制Timer的Enabel属性就可以了。

自己动手做了一个,请多指教了...

完全正确！！！！
谢谢！！！！