declarefunctiongetcursorposlib“user32”（lppointaspointapi）aslongtypointapixaslongyaslongendtypepublicsfunctiongetmouseuxuy（）aspointapigetcursorposgetmouseuxuyendfunctionsubtest（）“callgetmouseuxuu”call“getmousecoordinatevalueprocedure”（假设您给出的过程/程序名为getmouse）uxuy）ifgetmouseuxuy、x>100和getmouseuxuy.y>100然后……“根据返回到当前鼠标endsub的坐标值执行一个过程/程序
