_Angle(x,y) relevant to center of screen.

[gvus 0]

$centerx=@DesktopWidth / 2
$centery=@DesktopHeight / 2

$CALx=0
$CALy=0
While 1
Local $pos = MouseGetPos()
If $pos[0] > $centerx Then
$CALx=$centerx-$pos[0]
ElseIf $pos[0] < $centerx Then
$CALx=$centerx+$pos[0]
EndIf
If $pos[1] > $centery Then
$CALy=$centery-$pos[1]
ElseIf $pos[1] < $centery Then
$CALy=$centery+$pos[1]
EndIf
ToolTip(_Angle($CALx,$CALy ))
WEnd

Func _Angle($X, $Y)

    Local $CX = $centerx, $CY = $centery

    If ($CX = $X) And ($CY = $Y) Then
        Return SetError(1, 0, -1)
    EndIf

    Local $Grad = ($Y <= $CY) * 180 - ATan(($CX - $X) / ($CY - $Y)) * 180 / 3.1415926535897932384626 + 90

    If $Grad = 360 Then
        $Grad = 0
    EndIf
    Return $Grad
EndFunc   ;==>_Angle

It sort of works but  doesn't.

can I get some help here?

[UEZ 1,428]

Currently I'm sick and my brain doesn't work well but you can try this:

Br,

UEZ

[gvus 0]

I got this working.

Func Angle($tX, $tY, $cX, $cY)
    $mx = $tX - $cX
    $my = $cY - $tY
    $angle = ATan($my / $mx) * $180_div_pi
    If $mx < 0 Then
        $angle = 180 + $angle
    ElseIf $mx >= 0 And $my < 0 Then
        $angle = 360 + $angle
    EndIf
    Return Int($angle)
EndFunc