如何做个像屏保的永在最前面，并取得焦点的EXE执行程序？？

Question

本人想做一个像屏保一样：  
 
一个画面(一副画)，永远在屏幕的最前面，并是全屏的(像屏保)，并有一个输入框永取焦点。只有按了某个组合键(如Ctrl+Alt+Q或某个特殊键如F12)这样才能退出该程序，其它的输入则放入永取焦点的输入框内。  
请问各位大哥有这方面的源程序吗？有空可以写个给我吗？？谢谢...  本人想做个随时感应到键盘的输入，并且如果输入某个特定串时就自动反应执行某些动作。

Answer 1

全屏可以设置setwindowpos或者直接
me.left=0
me.top=0
me.width=screen.width
me.height=screen.height

Answer 2

设置总在最前
  Public 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 form1.hwnd, -1, 0, 0, 0, 0, 3
'取消
    SetWindowPos form1.hwnd, -2, 0, 0, 0, 0, 3