用什么办法能实现按下ctrl+end组合键结束程序？ 求解

注册热键。

额，没学过， 只记得在菜单编辑器中有热键，但那是alt+的，这是书上题目的要求，应该用书上的知识就能解决，用keydown和keyup键盘事件能实现吗？

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print KeyCode, Shift
    Select Case Shift
    Case ShiftConstants.vbCtrlMask  'ShiftConstants
        Select Case KeyCode
        Case vbKeyEnd
            Unload Me
        End Select
    End Select
End Sub

Debug.Print 这句还是第一次见到，我一直都没用到过立即窗口，调试程序也是直接在窗体上输出。
还有书上一般都是IF嵌套，Select Case 嵌套也第一次见，这应该是以后好多加功能的吧。
学到好多，谢谢