以下是VB６的热键代码，在各大小网站无不是沿用此代码。从VB2005出现后网上没查见过用VB2005同样实现的代码。望高人写一个VB2005实现的代码，方便我等初学者。难道VB2005没多少人使用了吗？


Option Explicit
　　Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA”_
　　 (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
　　Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA”_
　　 (ByVal hwnd As Long, ByVal nIndex As Long) As Long
　　Declare Function CallWindowProc Lib “user32” Alias “CallWindowProcA”_ (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
　　 ByVal wParam As Long, ByVal lParam As Long) As Long
　　Declare Function RegisterHotKey Lib “user32” (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
　　Declare Function UnregisterHotKey Lib “user32” (ByVal hwnd As Long, ByVal id As Long) As Long
　　Public Const WM_HOTKEY = ＆H312
　　Public Const MOD_ALT = ＆H1
　　Public Const MOD_CONTROL = ＆H2
　　Public Const MOD_SHIFT = ＆H4
　　Public Const GWL_WNDPROC = (－4)
　　Public preWinProc As Long
　　Public Modifiers As Long, uVirtKey As Long, idHotKey As Long
　　Private Type taLong
　　 ll As Long
　　End Type
　　Private Type t2Int
　　 lWord As Integer
　　 hword As Integer
　　End Type
　　 Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
　　ByVal wParam As Long, ByVal lParam As Long) As Long
　　 If Msg = WM_HOTKEY Then
　　 If wParam = idHotKey Then
　　 Dim lp As taLong, i2 As t2Int
　　 lp.ll = lParam
　　 LSet i2 = lp
　　 If (i2.lWord = Modifiers) And i2.hword = uVirtKey Then
　　 Debug.Print “HotKey Shift－Alt－G Pressed ”
　　 Shell “notepad”, vbNormalFocus
　　 End If
　　 End If
　　 End If
　　 '如果不是热键信息则调用原来的程序
　　 wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
　　 End Function
　　Sub Form_Load()
　　 Dim ret As Long
　　 preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
　　 ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
　　 idHotKey = 1 'in the range ＆h0000 through ＆hBFFF
　　 Modifiers = MOD_ALT ＋ MOD_SHIFT
　　 uVirtKey = vbKeyG
　　 ret =RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
　　 End Sub
　　 Private Sub Form_Unload(Cancel As Integer)
　　 Dim ret As Long
　　 ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
　　 Call UnregisterHotKey(Me.hwnd, uVirtKey)
　　 End Sub

[[italic] 本帖最后由 nhhykly9d 于 2008-1-17 16:44 编辑 [/italic]]

VB2005中，AddressOf  使用有别于VB6，报错；
第二，在
lp.ll = lParam
LSet i2 = lp　　　 语句中，LSet不能这样使用了。
这个是委托实现的例子，对初学者太难，望高人重写代码让我们学习

没有解决啊，高人快出来呀