怎样是窗口总在最前面

不是“怎样是窗口总在最前面”
而是“怎样使窗口总在最前面？”
在vb中只要加vbmodel即可，pb怎么写呢？

通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗
口永远不会被其它窗口覆盖，该函数声明为：
Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long
dx, Long dy, Long uflag) Library “user32.dll”
参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余
参数指定窗口位置和大小，均可忽略。在窗口的Open或Activate事件中加入如下
函数调用：
SetWindowPos(Handle(This),-1,0,0,0,0,3)
参数2取-1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，
表示窗口大小保持不变，取2表示保持位置不变，因此，取3（=1+2）表示大小和
位置均保持不变，取0表示将窗口的大小和位置改变为指定值。

将你做的窗口属性windowtype设为：response!