----在大量的應用軟件中，軟件啟動後一幅畫面有幾秒的信息顯示，列出產品、平台、版本號和版權信息，稱之為“啟動程序時的閃爍屏幕”。在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:windowsClouds.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下實現。->
