Private Type POINTAPI
  x As Long
  y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" _
  (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" _
  (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, lParam As Any) As Long
 
 
Dim P As POINTAPI
GetCursorPos P
SendMessage WindowFromPoint(P.x, P.y), WM_CLOSE, ByVal 0&, ByVal 0&