200分征集一段VB代码

求一段用VB向后台窗口发送组合键命令的代码；具体可参考下面三个所谓的解决方案，帮我转换成VB能用的代码，谢谢了。

关于向Windows窗口发送Alt组合键的问题
http://hi.baidu.com/kylixs/blog/item/b63d80107b790d01203f2e11.html

PostMessage 组合键解决方案
http://nbufo.blog.163.com/blog/static/38325202200711185119267/

如何发送系统按键消息？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2386014
后台组合键看来是不能实现了。也可以给我一段后台移动鼠标和点击鼠标的代码，经测试正确的话这200分就是你的了。
还有个难题就是QQ三国的窗口句柄找不到，能解决这个问题都话也送分

==================================
4楼的试过了还是不行。会的指导下吧。最好试验过可行的再发出来，比如向后台记事本发Alt+F4关闭窗口或Ctrl+A全选内容
Private Sub Command1_Click() '按下Alt+F4,无法关闭记事本
Dim bHandle&
bHandle = Fi

http://www.vbgood.com/viewthread.php?tid=54223&extra=page%3D1&page=1

发送ALT组合键到后台的代码

其他组合键,如ctrl的消息是wm_keydown,而alt键是wm_syskeydown

我猜PostMessage 或 sendMessage 都实现不了。。

还有我听说，DX的游戏句柄要用特殊的方法才能找到的

关于向Windows窗口发送Alt组合键的问题
http://hi.baidu.com/kylixs/blog/item/b63d80107b790d01203f2e11.html

PostMessage 组合键解决方案
http://nbufo.blog.163.com/blog/static/38325202200711185119267/

如何发送系统按键消息？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2386014