Public Function WinProc(ByVal lMsg As Long, ByVal wParam _ 
 As Long, ByVal lParam As Long) As Long  
If lMsg = HCBT_ACTIVATE Then   
   SetWindowPos wParam, 0, posX, posY, 0, 0, SWP_NOSIZE Or _
   SWP_NOZORDER   Or SWP_
   NOACTIVATE   UnhookWindowsHookEx hHook
End If 
WinProc = False
end function