Про Hot key

[nik936ta]

Подскажите пожалуйста как сделать так чтобы по нажатию на клавишу открывалась какая-нибудь другая программа.

[A.A.Z.]

Код: Выделить всё

Sub Form_Load()
Me.KeyPreview = True
End Sub

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Asc("C") 'англ. "C"
Shell "calc.exe"
Case Asc("N")
Shell "notepad.exe"
End Select
End Sub