Private Sub Form_Load()
Me.KeyPreview = True'//激活按键事件
End Sub
'用窗体的KeyPress 事件:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 17 Then
MsgBox "你按下了Ctrl+Q"
'//此处写退出
unload me
End If
End Sub
'由于单按下某个键和双按下某个键的KeyAscii 值都会是不同的.所以你要一个一个找出这些KeyPress 值就可以了(用Caption 显示).比如上面的CTRL+Q 的值是:17
end 就是关闭