巧用VB 4.0和Windows API函數可以為您的應用程序設計一個像 WORD、EXCEL啟動封面那樣的標準軟件封面，具體步驟如下：

1。建立窗體和控件
進入VB 4.0編輯器，打開你應用程序所在的項目，新建一窗體（Form），選取其屬性，將BorderStyle改為“0－ NONE”，將Name改為“Cover”，然后調整窗體大小。選取Tools菜單中的“Custom Controls”，為控制工具箱添加一個Sheridan 3D Co ntrols工具，在窗體上添置一個“SSPanel”控件（這可使你的封面圖片具有立體感），使其大小恰好覆蓋窗體，再在“ SSPanel”上放置一個“Image”控制，并通過它的“Picture”屬性，選取已做好的封面圖片文件。然后在窗體上放置兩個時鐘控件：Timer1和Timer2，并將“Interval”分別設置為4000和2000。

2。函數說明
本例中用到的Windows API函數應在應用程序的代碼模塊中加以說明。首先打開VB程序組中的API Viewer，選API Type為“declares”，再選取“文件”菜單中的“Load Text File”，查到函數Setwindowpos（），將其說明語句復制到說明模塊中；然后選API Type為“Constants”，再“Load Text File”，查到函數所用的兩個常數“Swp－showwi ndow”和“Swp－nosize”，將其說明語句也復制到說明模塊中。也可在說明模塊中直接寫入以下語句：

Public Const SWP＿NOSIZE＝＆H1

Public Const SWP＿SHOWWINDOW＝＆H40

Declare Sub SetWindowPos Lib “User”（ByVal hWnd As Integer，_
ByVal hWndInser tAfter As Inte。ger，ByVal X As Integer，_
ByVal Y As Integer，ByVal cx As Integer，ByVal cy As Integer，_
ByVal wFlags As Integer）
注：“declare Sub…”部分要在一行之內輸完。

3。編寫程序
（1）在Form－Load寫入：
Private Sub Form＿Load（）
SetWindowPos Cover。hWnd，－1，Cover.Left／15，＿

Cover.Top／15，Cover。Width／15，＿
Cover.Height／15，SWP＿NOSIZE or SWP＿SHOWWINDOW
′使封面窗體（Cover）始終在主界面（Zjm）窗體的上面
End Sub

（2）在Timer1－Timer中寫入：
Private Sub Timer1＿Timer（）
Unload Me ′封面顯示4秒后卸載
End Sub

（3）在Timer2－Timer中寫入：
Private Sub Timer2＿Timer（）
Zjm.Show ′封面顯示2秒 鶻緱孀叭?br>End Sub
（4）在Image1－click中寫入：
Private Sub Image1＿Click（）
Unload Me
zjm.Show ′卸載封面，裝入主界面
End Sub

4。程序運行
通過主菜單“Tools”中的“ Option”選項將封面（Cover窗體）設置為起動窗體，按下工具欄中的run按鈕，運行程序。首先封面顯示，2秒后程序主界面裝入，封面保持在主界面的上面，再過 2秒，封面卸載，進入主程序運行狀態。在封面處于顯示狀態時，單擊封面，也可將其卸載，裝入程序主界面。窗體和主界面的顯示時間可通過調節Timer1和Timer2的Interval屬性值來實現。