----在大量的應用軟體中，軟體啟動後一幅畫面有幾秒鐘的資訊顯示，列出產品、平台、版本號和版權訊息，稱之為「啟動程式時的閃爍螢幕」。在VisualBasic中是如何實現的呢？本文討論產生啟動畫面的一種方法，並使之多彩化。做到啟動畫面在桌面停留時，提示文字在桌面上「流動」(如《東方快車》啟動畫面)。同時也可以實現流動文字的閃爍、變色等效果。如果在文字底部設定畫面，文字可以從畫面流動。要顯示完畢從畫面頂部消失後，可重新從畫面底部冉冉升起，循環出現。這樣設計後，可用在軟體說明及著作者列表等等，以豐富的軟體的畫面顯示效果。
----取工程1，窗體Form1、Form2，設Form1為啟動窗體。在Form2上新建Frame1、Timer1和Temer2，Frame1的Caption屬性設定成空值，以形成美觀的立體邊框。 Timer1和Temer2的Enabled的屬性設為True。在Frame1上建立Picture1，調整Picture1為適當大小。將Form1的ScaleMode屬性設為1-Twip，Form2的StartUpPosition屬性設為2-CenterScreen(中心對齊)。為了確保窗體Form2不顯示窗體最上面的“藍色說明條”，將Caption屬性設為空值，ControlBox屬性設為False即可。在Picture1上建立標籤Label1，調整BackStyle為0(透明)。在Label1的Caption屬性填入「作者：瀋陽薑雪小姐」一段文字，以便觀察。調整文字的大小、顏色。在窗體Form2上可隨意設定版面資訊。
----Form1程式碼如下：
PRivateSubForm_Load()
Form1.Visible=0'使窗體Form1不可見
Form2.Show'顯示窗體Form2
EndSub
Form2各控制項程式碼如下：
OptionExplicit
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
'點選窗體Form2時，結束窗體Form2的執行，
顯示窗體Form1，關閉Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:/windows/Clouds.bmp")'任意選擇一張圖片
Timer1.Interval=80'時間步長
Timer2.Interval=50
EndSub
PrivateSub
Frame1_Click()'點選控制項Frame1內區域時，
結束視窗Form2的執行，顯示視窗Form1，關閉Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSub
Picture1_Click()
'點選圖片Picture1內區域時，結束視窗Form2的執行，
顯示窗體Form1，關閉Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9'呼叫變換的顏色
I=I 1
IfI>50Then'窗體Form2停留時間，可調整大小
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndIf
EndSub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'選取顏色
IfVal(Ctrl.Tag)=color1Then
Ctrl.Tag=color2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=color3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=color1
Else
Ctrl.Tag=color1
EndIf
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub
PrivateSubTimer2_Timer()'控製文字移動位置及速度
Step1=1800:Step2=4500:Step3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub
----可以調整Timer1.Interval、Timer2.Interval值的大小，它們分別決定文字顏色變換速度及文字流動速度；根據窗體和控件情況調整Step1、Step2為合適值；Step3為文字跳躍步長；透過改變ColorLabel1，I，J，K語句中的I，J，K值來改變文字的變換顏色。在中文VisualBasic5.0下實作。 ->