RBUTTONDBLCLK = &amp;HA6
   WM_NCRBUTTONDOWN = &amp;HA4
   WM_NCRBUTTONUP = &amp;HA5
End Enum
Public Enum EHTHookErrorConstants
   eehHookBase = vbObjectError + 1048
End Enum
Public Enum EHTHookCode
   HC_ACTION = 0
   HC_GETNEXT = 1
   HC_SKIP = 2
   HC_NOREMOVE = 3
   HC_SYSMODALON = 4
   HC_SYSMODALOFF = 5
End Enum

Public Function InstallHook( _
      ByVal IHook As IWindowsHook, _
      ByVal eType As EHTHookTypeConstants _
   ) As Boolean
Attribute InstallHook.VB_Description = "Installs a Hook of the 