怎么写这样一个函数？

就是获取当前鼠标所在窗口的窗口句柄？
--------------------编程问答-------------------- Private Declare Function GetForegroundWindow Lib "user32" () As Long
--------------------编程问答-------------------- WindowFromPoint --------------------编程问答-------------------- 哦~原来这么简单吖

补充：VB ,  基础类