how to updated the mousex and mousey

[Robin]

frmMirage_mousemove(button as integer, shift as integer, x as single, y as single)
miragex = x
miragey = y
end sub

Public miragex as single
Public miragey as single

miragex and miragey will keep your mouse coordantes even if you do not move your mouse, but will change if you change your cursor coordantes.

You don't need a timer because globals do not change unless you ask them to.