[vb6.0] 快捷键触发事件

Private Sub Form_Load()
    '//激活按键事件
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyD And Shift = 2 Then 'CTRL+D
        MsgBox "ctrl+d"
    End If
End Sub