Timer1.Interval = CLng(Text1.Text) * 1000
Dim lngLeft As Long
Dim lngTop As Long
Dim i As Integer
 
i = 1
 
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
i = i + 1
 
Loop Until i = 30