如何在VB中避免动态刷新图片时的闪烁问题

VB中实现一个动态的图形，一般可使用控制几个图形控件的Visible属性的True或者False交替来实现，但是这样会出现图形在更新中闪烁的问题。虽然可以用双缓冲的办法来实现不闪烁，但是比较麻烦。其实有最简单有效的办法，其原理也是在内部实现了双缓冲功能。就是用一个imagelist控件来储存图形集，然后把要显示该图形集的容器(如：image,picturebox,form)依次与imagelist控件内不同编号的图形相连接。因为存在imagelist里面的图形已经在内存中，所以不用再在内存中绘制，实现了双缓冲。闪烁的问题解决了！

例：
首先设立一个image控件，和一个imagelist控件
然后在imagelist1控件内存入10个图形，

For n = 1 To 10
 Set Image1.Picture = ImageList1.ListImages(n).Picture
Next n