求一段快捷键的代码

Question

大家好，高手们好，我想求一段可以实现3个快捷键的代码，不过要求用WIN做热键，用键盘上的其它任意一个键做快捷键，如WIN+A调出记事本。如果大家手上有这样的代码，请给我一份。
先谢谢了。

Answer 1

'演示怎样设置一个窗口在桌面上的HotKey,这个程序将Form1的HotKey设置为
'Ctl+Alt+A.Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SETHOTKEY = &H32
Private Const HOTKEYF_SHIFT = &H1
Private Const HOTKEYF_CONTROL = &H2
Private Const HOTKEYF_ALT = &H4Private Sub Form_Load()
   Dim l As Long
   Dim wHotkey As Long
   
   wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * (2 ^ 8) + 65
   l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
End Sub