Dans le code survol du champ :

PosSouris est composé de
  HHH est un entier
  VVV est un entier
FIN

AppelDLL32(« user32″, »GetCursorPos » , &PosSouris)
AppelDLL32(« user32″, »ScreenToClient » , Handle(MoiMême..Nom), &PosSouris)

 Trace(« Zone en « +PosSouris.HHH+ », »+PosSouris.VVV)