i know u are pro and iam Amateur :( :( :( ..
but

#############################



Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
...