Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
  ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type

________________________________________________________________________
::Nicht weil es schwer ist wagen wir es nicht, sondern weil wir es nicht wagen ist es schwer::