VisualBasic中制作流水灯

1、建立一个新的表单。进入Visual 5asic 4.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为RGB(192,192,192)。

2、建立第一个彩灯。鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“★”（也可为其它字符，这里的“★”可在 WINDOWS 95的“附件”的“字符映射表”中找到），Autosize为.T.，Backstyle为0，Forecolor为红色，字体大小为18。

3、建立其它29个彩灯。鼠标点击LABEL1，按CTRL + C（拷贝）键，再按CTRL + V（粘贴）键，在FORM1上创建另一个标题与LABEL1相同的标签（LABEL1（1）），屏幕提示是否建立控件数组时选择‘YES’。如此反复进行拷贝，共建立30个标签，将这30个标签按顺序排成一个矩形方框。

4、建立计时器。鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上创建一个计时器（TIMER1）。设置它的属性Interval为400。

5、双击FORM1，编写FORM1的Load过程如下：

Private Sub Form_Load()

I = 0

For j = 0 To 9

Label1(j * 3).ForeColor = &HFF& ’红色

Label1(j * 3 + 1).ForeColor = &HFF00& ’绿色

Label1(j * 3 + 2).ForeColor = &HFFFF& ’黄色

Next j

End Sub