如何制作浮动式窗口

你是否很想制作一个类似于Microsoft Offices 那样的一个图标框，始终出现在
桌面的最前方？很简单，你只要调用Windows API函数就可以了。
首先，你当然要先建立一个普通的窗口，然后定义以下一些内容：

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
(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
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

接下来，在你的程序中的适当地方加入以下语句：
success% = SetWindowPos(myform.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
这样，你的窗口就出现在桌面的最前方了。
当然，你也可以把窗口恢复成原来的普通状态：
success% = SetWindowPos(myform.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)