怎么使窗口永远获得焦点,直到窗口操作结束

如何使窗口永远获得焦点,直到窗口操作结束?
如题,我用setwindowpos能使窗口始终在最前台,但是点击窗体以外其它地方,焦点还是转移,我想有没有什么其他方法或函数可以使窗体永远获得焦点,直到对这个窗体操作结束?

------解决方案--------------------
在调用打开这个窗体时,用 show 1
例如:
DReRenyuan.Show 1