Timer1.Interval = CLng(Text1.Text) * 1000 
Dim lngLeft As Long 
Dim lngTop As Long 
Do 
If Timer1.Enabled = False Then 
dx = Screen.Width / Screen.TwipsPerPixelX - 10 
dy = 5 
Timer1.Enabled = True 
lngLeft = Shape1.Left + Shape1.Width / 2 
lngTop = Shape1.Top + Shape1.Height / 2 
lngLeft = Form1.ScaleX(lngLeft, Form1.ScaleMode, vbPixels) 
lngTop = Form1.ScaleY(lngTop, Form1.ScaleMode, vbPixels) 
Call MoveMouse(lngLeft, lngTop) 
End If 
DoEvents 
Loop