我們很希望在程序激活其它窗口時仍使得封面窗口處于前臺，也就是說該窗口具有“總在最前面”（“Always On Top”）這一特性。其實Microsoft系列軟件都是這樣做的，當你運行Word、Excel或PowerPoint時，你會發現它們的封面窗口不隨系統激活其它窗口而消失。

Visual Basic For Windows（以下簡稱VB）作為一種可視化編程軟件，以其優秀的圖形化界面設計風格而著稱。利用它可使軟件開發周期大為縮短，然而VB對Windows DLL（動態鏈接庫）調用的強大功能卻易受不少程序員所忽略。事實上，靈活應用Windows DLL的API（應用程序接口）才能使你開發的系統更加充滿活力。正是由于VB支持DLL使得我們可以隨心所欲地控制窗口顯示風格，從而我們可以讓系統封面總處于前臺，下面說明用到的API函數。

．SetWindowPOSVB定義：

Declare Sub SetWindowPosLib“User”（Bybal hWnd as Integer，hWndInsertAfter as Integer，ByValＸas Integer，ByValＹas Integer，ByVal cx as Integer，ByVal cy as Integer，ByVal wFlags as Integer）

說明：能改變窗口的位置和大小，并能修改窗口在內部窗口列表中所處的位置，以控制顯示次序。

參數類型／說明hWnd Integer－需定位的窗口hWndInsertAfter Integer－窗口句柄，在窗口列表里，

窗口hWnd將放在該窗口句柄的后面，它可以取以下值：

hWnd＿BOTTOM：把窗口放在窗口列表的底部；

hWnd－TOP：把窗口放在Ｚ序的頂部。Ｚ序是窗口按層次級別顯示的順序；

hWnd＿TOP（MOST）：把窗口放在列表的頂部，位于所有最頂窗口之后。

X Integer—窗口新的X坐標，如果hWnd是一個子窗口，X給出的是父窗口的客戶坐標。

Y Integer—窗口新的Y坐標，如果hWnd是一個子窗口，Y給出的是父窗口的客戶坐標。

cx Integer—指定新窗口寬度。

cy Integer—指定新窗口高度。

wFlags Intege 包含下列標志之一的整數：

SWP＿DRAWFRAME：圍繞窗口畫一個邊框；

SWP＿HIDEWINDOW：隱藏該窗口；

SWP＿NOACTIVATE：不激活該窗口；

SWP＿NOMOVE：保持當前位置（Ｘ和Ｙ被忽略）；

SWP＿NOREDRAW：窗口不自動重畫；

SWP＿NOSIZE：保持當前大小（cx和cy被忽略）；

SWP＿NOZORDER：保持窗口列表中的當前位置（hWndInsertAfter被忽略）；

SWP＿SHOWWINDOW：顯示該窗口。

注釋：當一個窗口成為最頂窗口時，它所有的從屬窗口也成為最頂窗口；當它成為非最頂窗口時，它全部的從屬窗口和擁有窗口也成為非最頂窗口，Ｚ序表示窗口沿著從屏幕里向外延伸的假想Ｚ軸，從頂到底的排列次序。

VB實現窗口擁有“Always On Top”特性：

首先，定義全局常量及函數。

Global Const hWnd＿TOPMOST＝－１
Global Const SWP＿NOACTIVATE＝＆Ｈ１０
Global Const SWP＿SHOWWINDOW＝＆Ｈ４０
Declare Sub SetWindowPosLib “User” ByBal hWnd as Integer，hWndInsertAfter as Integer，ByVal Ｘ as Integer，ByVal Ｙ as Integer，ByVal cx as Integer，ByVal cy as Integer，ByVAL wFlags as Integer）

主程序如下編寫：

Sub Main ０
Screen．MousePointer＝１１使鼠標變為漏斗狀
Load SystemCover裝載系統封面窗體
SetWindowＰｏｓ SystemCover．hWnd，hWnd＿TOPMOST，０，０，０，０，SWP＿NOACTIVATE Or SWP＿SHOWWINDOW使得封面總處于最前面
Load InitWindow１裝載初始化窗體１
Load InitWindow２裝載初始化窗體２
：
：
Unload SystemCover關閉系統封面窗體
Screen．MousePointer＝０
使鼠標變為缺省形狀
End Sub