Call Unhook

Unhook

Option Compare Database
Option Explicit
Public Const GWL_WNDPROC = - 4 
Public Const WM_CHAR& = &H102

Global lpPrevWndProc As Long

Public Declare Function GetFocus Lib "user32" () As Long

Public Declare Function DefWindowProc Lib "user32" Alias _
   "DefWindowProcA" (ByVal HWND As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
Public 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
Public Declare Function SetWindowLong Lib "user32" Alias _
   "SetWindowLongA" (ByVal HWND As Long, _
    ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Sub Hook(HWND As Long)
    lpPrevWndProc = SetWindowLong(HWND, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub UnHook(HWND As Long)
Dim TEMP As Long
    TEMP = SetWindowLong(HWND, GWL_WNDPROC, lpPrevWndProc)
End Sub

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If uMsg = WM_CHAR Then
        WindowProc = DefWindowProc(hw, uMsg, wParam, lParam)
    Else
        WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
    End If



Private Sub Form_Load()
    Me.txtTemplDesc.SetFocus
    Hook GetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.txtTemplDesc.SetFocus
    UnHook GetFocus
End Sub
End Function