lParam LoWord/HiWord

 Dim pt As POINTAPI

    Dim rrr As RECT

           

   

          (pt.x = CLng(lParam And 65535

         ( pt.y = CLng(lParam / 65535

          

           ClientToScreen hwnd, pt

           GetWindowRect hwnd, rrr