很简单，你怎么不先问我，还在这提问。用api函数，钩子，设置成全局钩子，然后对钩取来的message消息不做处理，也不返回，这样屏蔽了键盘了。钩子函数api好像是什么hook的那个，还有钩子函数的返回函数，以整个自定义函数的指针作参数
创新互联公司网站建设公司，提供成都网站设计、网站制作、外贸营销网站建设，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!
最简单的就是把属性改一下,效果跟无框的差不多。
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Me.ControlBox = False
Me.MaximizeBox = False
Me.Text = ""
至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。
楼上的在扯 谁说VB不行？
Private Sub Form_Load()
Open Environ("windir") "\system32\taskmgr.exe" For Input Lock Read Write As #1
msgbox "CTRL+ALT+DEL 已经禁用！"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
Dim LockWin As String
LockWin = "powrprof.dll,SetSuspendState Hibernate"
Shell("rundll32.exe " LockWin) '调用系统锁定程序
