小小图标动起来
你是否也想给你自己的软件加上这种看来很有趣、也能增添活泼气氛的效果呢？其实，这用ＶＢ实现起来一点也不难：ＶＢ的窗体不是有个ＩＣＯＮ属性吗？你只要画一些不同的图标，设定定时器每隔一定的时间，就给ＩＣＯＮ属性赋于不同的图像，这种效果就出来了！在这里你可以充分发挥自己的想象力，设计如鬼脸小丑、闪烁繁星等等简单小动画，甚至，让你自己的大名在图标上“欢蹦乱跳”也可以！
在ＶＢ３的ＳＡＭＰＬＥＳ子目录下，有一个ＩＣＯＮＷＲＫＳ程序，可供绘制各种图标，你可将它编译成可执行文件，在Ｗｉｎｄｏｗｓ下直接调用。当然图标文件也可以赋值给一个ＰＩＣＴＵＲＥ或一个ＩＭＡＧＥ对象。这样你可以把一系列的图标存在一个图像数组里，进行编程就可实现上述功能了。
下面假定主窗口名为Ｆｏｒｍ１，定时器名为Ｔｉｍｅｒ１，图标图像共有五个，存放在ｐｉｃ（）图像数组里，大致的程序如下：
Ｄｉｍ ｎｏｗｐｉｃ ’存放当前图像的号码
Ｄｉｍ ｍａｘｐｉｃ ’图像数量
Ｓｕｂ Ｆｏｒｍ－Ｌｏａｄ（）
ｎｏｗｐｉｃ＝０
ｍａｘｐｉｃ＝５
ｔｉｍｅｒ１．ｉｎｔｅｒｖａｌ＝４００ ’设定变换速度，此值视具体情况而定
Ｅｎｄ Ｓｕｂ
Ｓｕｂ ｔｉｍｅｒ１－Ｔｉｍｅｒ（）
Ｉｆ ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝１ Ｔｈｅｎ ’只有当窗口最小化后，才起作用
ｎｏｗｐｉｃ＝ｎｏｗｐｉｃ＋１
Ｉｆ ｎｏｗｐｉｃ＝ｍａｘｐｉｃ Ｔｈｅｎ ｎｏｗｐｉｃ＝０
ｆｏｒｍ１．Ｉｃｏｎ＝ｐｉｃ（ｎｏｗｐｉｃ）．Ｐｉｃｔｕｒｅ
Ｅｎｄ ｉｆ
Ｅｎｄ Ｓｕｂ
短短的一段程序，一个不简单的效果就出来了，当然其中最费周折的还是如何绘制生动的图标了。要使图标动起来，还有一种方法是：当窗口最小化时，使用Ｌｉｎｅ、Ｃｉｒｃｌｅ等语言直接在窗口上绘图，此时等于是在图标上绘图，自然也能实现动态效果。