都市的夜色中閃爍著各式各樣的霓虹燈，其中用得最多的大概要算流水燈，它的行雲流水般的效果為寧靜的夜晚帶來生機。如果在我們製作的多媒體軟體的介面中加入一串閃閃發光的流水燈會是什麼樣的效果呢？依照下面的步驟你可以為你的多媒體程式加入一串有追逐效果的流水燈。
1、建立一個新的表單。進入Visual5asic4.0系統環境，建立一個新的表單（FORM1），並設定FORM1的Backcolor屬性為RGB(192,192,192)。
2、建立第一個彩燈。滑鼠點擊“表單控制列”中的“標籤”，並在FORM1上拉出一個矩形方框（LABEL1）。設定它的屬性Caption為「★」（也可為其它字符，這裡的「★」可在WINDOWS95的「附件」的「字符映射表」中找到），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過程如下：
PRivateSubForm_Load()
I=0
Forj=0To9
Label1(j*3).ForeColor=&HFF&'紅色
Label1(j*3 1).ForeColor=&HFF00&'綠色
Label1(j*3 2).ForeColor=&HFFFF&'黃色
Nextj
EndSub
6.雙擊TIMER1，寫出TIMER1的Timer過程如下：
PrivateSubTimer1_Timer()
IfI=30Then
I=0
EndIf
I=I 1
ForJ=0To29
Label1(J).Visible=False
NextJ
IfIMod3=2Then
ForJ=0To9
Label1(J*3 1).Visible=True
NextJ
Else
IfIMod3=0Then
ForJ=0To9
Label1(J*3 2).Visible=True
NextJ
Else
ForJ=0To9
Label1(J*3).Visible=True
NextJ
EndIf
EndIf
EndSub
運行表單後可見紅、綠、藍三種顏色的彩燈交替點亮，調整Timer1的Interval屬性值大小可改變三組彩燈的循環速度。
以上程式在VisualBasic5.0及Windows95中執行通過。 ->