Public Function SetHook(ByVal HWND As IntPtr) As Integer
    Dim VarAssembly As Reflection.Assembly
    Dim VarModule As [Module]
    Dim VarInst As IntPtr
 
 
    Try
 
      VarAssembly = System.Reflection.Assembly.GetExecutingAssembly()
      VarModule = VarAssembly.GetModule(VarAssembly.GetName.Name & ".dll")
      VarInst = Marshal.GetHINSTANCE(VarModule)
 
      If ModShellHook <> 0 Then
          Unhook
       End If
 
       ModShellHook = SetWindowsHookEx(WH_SHELL, AddressOf LowLevelShellProc, _
         VarInst, 0)
       ModShellHwnd = HWND
 
      End Select
 
      Return True
 
    Catch ex As Exception
      MsgBox(ex.Message)
      Return False
 
    End Try
 
  End Function