ume Next                                    'The table may not be
   dimensioned yet so we need protection
    AddrMsgTbl = VarPtr(aMsgTbl(ARRAY_LB))                'Get the address of
     the first element of the passed message table
  On Error GoTo 0                                         'Switch off error
   protection
End Function

'Patch the code offset with the passed value
Private Sub PatchVal(nOffset As Long, nValue As Long)
  Call WinSubHook.CopyMemory(ByVal (nWndProc + nOffset), nValue, 4)
End S