五彩缤纷的清屏效果
　 
在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互
切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形
态各异的清屏图案。VB作为一门优秀的WINDOWS下的开发语言，其图形功能也很强。
我们完全可以用其提供的画线语句作出上述的清屏图案，下面的程序给出了常见的
清屏图案程序：
　　Sub FilSCrO'设置背景色
　　Me.BackColor=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　End Sub
　　Sub ClrScrl()'从左右两边到中间清屏
　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),
Int(Rnd＊256))
　　For i=0 To ScaleWidth/2
　　Line(i,0)－(i,ScaleHeight),color
　　Line(ScaleWidth－i,0)－(ScaleWidth－i,ScaleHeight),color
　　Next i
　　End Sub
　　Sub ClrSer20'从中间到左右两边清屏
　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),
Int(Rnd＊256))
　　for i=ScaleWidth/2 To 0 Step －1
　　Line(i,0)－(i,ScaleHeight－1),color
　　Line(ScaleWidth