PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong) PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAspointapi)AsLong PrivateDeclareFunctionCreateDCA&Lib"gdi32"(ByVallpDrive