大型應用系統啟動運行的時間需要很長時間,其時間會根據需要初始化的數量和用戶系統的速度變化,因此在主視窗顯示前,應顯示一個初始化視窗,使應用程式看起來更具吸引力,因為當裝載程式時不斷可以向使用者顯示一些訊息，而且可產生美觀的視覺效果。例如vb、delphi在啟動時均在主介面前顯示一splash視窗.
----1.以下是顯示閃爍(標語)畫面splash的簡單方法:
optionexplicit
PRivatesubform_load()
'顯示主視窗
me.show
'顯示splash視窗
frmsplash.show
doevents
'執行應用程式初始化
initialize
'關閉splash視窗
unloadspalsh
endsub
----此過程代碼應放在應用程式的啟動窗體中。第一個show方法可讓windows在螢幕上顯示主窗體，下一個show方法顯示閃爍屏，它是你設計的名為frmsplash的窗體.在利用show方法之後，再利用Doevents函數，以確保閃爍螢幕視窗的所有元數立即繪製完。 Initialize函數執行應用程式在啟動時需要執行的費時任務，例如，從檔案裝載數據，將窗體裝入記憶體等等。這時一切都準備就緒.
----2.閃爍窗體模板
----VisualBasic中含有許多摸板窗體，其中一個是閃爍屏。要為項目新增Splashscreen窗體，需要從project選單中選擇AddForm.在AddForm對話框的New標籤上選擇SplashScreen圖標，並點擊Open.這樣SplashScreen窗體就被加入到項目中.
----下列程式碼顯示如何自訂SplashScreen窗體摸板的實例:
optionexplicit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warning:thisprogramisprotected"&_
"bycopyrightlaw,sodon'tcopy"
frmsplash.show
doevents
initialize
unloadfrmsplash
endsub
----注意這裡使用了app對象，該對象可以存取有關你的應用程式的資訊;
----splashscreen窗體摸板程式碼模組的程式碼如下所示:
PrivateSubForm_keypress(keyasciiasinteger)
unloadme
Endsub
Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endsub
privatesubframe1_click()
unloadme
EndSub->