Visual Basic

Public Class WM_WINDOWPOSCHANGED
       Shared Event WindowMoving(ByVal handle As IntPtr)
       Shared hookhandle As Integer
       Shared hookhandler As HookHandler
       Private Sub New()

       End Sub
       Public Shared Sub CreateTheHook()
           'If hookhandle = 0 Then
           '    hookhandle = User32Imports.SetWindowsHookEx(CInt(HookCodes.WH_CALLWNDPROC), hookhandler, Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()(0)), CInt(0))
           '    MsgBox(hookhandle)
           'End If
           hookhandler = New HookHandler(AddressOf ChangeButtonHost)
           hookhandle = User32Imports.CreateSystemHook(Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()(0)), hookhandler)
           If hookhandle <> 0 Then MsgBox("hi")
       End Sub
       Shared Function ChangeButtonHost(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr)
           If nCode >= 0 Then
               Dim cwps As CWPSTRUCT = DirectCast(System.Runtime.InteropServices.Marshal.PtrToStructure(lParam, GetType(CWPSTRUCT)), CWPSTRUCT)
               Dim winfo As New WindowInfo(cwps.hwnd)
               If cwps.message = &H46 And WindowInfo.IsValid(cwps.hwnd) And winfo.ShowInTaskbar = True Then
                   RaiseEvent WindowMoving(cwps.hwnd)
               End If
           End If
           Return 0 'User32Imports.CallNextHookEx(hookhandle, nCode, wParam, lParam)
       End Function
   End Class

Friend Class User32Imports
       <DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
       Friend Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As HookHandler, ByVal hInstance As IntPtr, ByVal ThreadId As Integer) As Integer
       End Function
       <DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
       Friend Shared Function CallNextHookEx(ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lparam As IntPtr) As Integer
       End Function

   End Class>