求一段快捷键的代码

[babytree666]

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

[yoki]

'演示怎样设置一个窗口在桌面上的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 Long

Private Const WM_SETHOTKEY = &H32
Private Const HOTKEYF_SHIFT = &H1
Private Const HOTKEYF_CONTROL = &H2
Private Const HOTKEYF_ALT = &H4

Private 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

[babytree666]

谢谢，其它朋友还有代码吗？

[babytree666]

顶一下！