pError 1
   End If
End Property
Private Sub pError(ByVal lErr As Long)
   Err.Raise vbObjectError + 1048 + lErr + 3000, App.EXEName &amp; ".vbalWinHook",
    "Class only valid during HookCall with the same hook type."
End Sub

Private Sub Class_Terminate()
   ' Clear up?
   debugmsg "GHook:terminate"
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><t