Position TrayBar ermitteln

Habe gerade die Ermittlung der Position der TrayBar benötigt und das ganze gleich in eine Funktion gepackt.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _GetTrayBarPos()
;
; Beschreibung gibt die Position der TrayBar zurück
; 1 = rechts
; 2 = unten
; 3 = links
; 4 = oben
;
; Autor BugFix ( [email='bugfix@autoit.de'][/email] )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _GetTrayBarPos()
$TrayBarPos = WinGetPos("", "Notification Area" )
Select
Case $TrayBarPos[0] = -4
If $TrayBarPos[1] = -4 And $TrayBarPos[2] = (@DesktopWidth +8) Then
; Position = "unten"
Return 2
ElseIf $TrayBarPos[1] = -4 And $TrayBarPos[3] = (@DesktopHeight +8) Then
; Position = "rechts"
Return 1
Else
; Position = "oben"
Return 4
EndIf
Case Else
; Position = "links"
Return 3
EndSelect
EndFunc ; ==> _GetTrayBarPos()