此段源程序一定能解决你的问题！：

Option Explicit

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1

Const FormFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE

Public Sub WindowAlwaysOnTop(Form_Hwnd As Long, vStaus As Boolean)
       
       Dim Dummy As Long
       
       If vStaus Then
          ' 常在顶端
          Dummy = SetWindowPos(Form_Hwnd, HWND_TOPMOST, 0, 0, 0, 0, FormFlags)
       Else
          ' 不常在顶端
          Dummy = SetWindowPos(Form_Hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FormFlags)
       End If
       
End Sub

Private Sub Form_Load()
        ' 举例
        WindowAlwaysOnTop Me.hwnd, True
End Sub

郭子

不行！
用你的OICQ和这个程序比比，就知道了。

简单来讲，Windows 的窗口分为两类：一类为高居顶端，另一类为正常窗口。但如果有多个窗口为高居顶端窗口，则其相互之间的覆盖关系同正常窗口相同。如果你要一直保证你的窗口也居于其他同类窗口之上，则必须对你的窗口周期性调用SetForegroundWindow()，但这样将干扰其他程序正常运行。另外，你可以仔细钻研一下微软的有关于Z-Order方面的资料，也许能另外找到解决办法。

'声明：
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 
Private Const HWND_TOPMOST = -1 '前
Private Const HWND_NOTOPMOST = -2 '普
Private Const SWP_NOMOVE =  2 
Private Const SWP_NOSIZE =  1 
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE 
'代码：放在form1_load()中
SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS'前