看我操作。。。
先添加一个timer控件。。然后API函数申明~~现在添加API

我们把VB窗口属性设置为隐藏 免得被发现了~呵呵  现在试一下~  抱歉 忘了 设置timer的时间了~
看见没 显示不出来了~ 呵呵  QQ登陆窗口隐藏了~

当然这可以做成一个QQ小病毒~  把这程序里加入注册表的写入代码。。让它自启动~~  好了  我就不多做了
有什么问题的 或者有什么问题愿意和我一起探讨的 欢迎加我的QQ 谢谢  拜拜
Dim ma As Long
If FindWindow(vbNullString, "QQ用户登录") <> 0 Then
ma = FindWindow(vbNullString, "QQ用户登录")
Call ShowWindow(ma, 0)