【实例说明】
    在大部分多媒体软件中都有这样一个功能——让窗体总在最前面。本例介绍如果让运行的程序总在最前面，又如何还原“窗口不再置顶”。

【编程思路】
    用API实现该功能。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置一个CheckBox控件。

    3.源程序  [素材源程序下载]


Option Explicit

'API函数的声明
Private Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long

Private blnFormTop As Boolean

Private Sub Check1_Click()
        blnFormTop = Not blnFormTop
        subTop
End Sub

Private Sub Form_Load()
        blnFormTop = False
End Sub

Private Sub subTop()
        If blnFormTop = True Then
                SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
        Else
                SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3
        End If
End Sub