怎样使VB6编写的窗口显示在最顶层？

Question

怎样使VB6编写的窗口一直显示在最顶层，不被其他窗口掩盖？

Answer 1

声明：
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2Private 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
调用：
        SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flagshwnd：为窗体的句柄

Answer 2

还有一个声明（前面忘了）：
Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE