Name "C:\ViejoNombre" As "C:\NuevoNombre"

Private Sub Form_Load()
  Call Form1.Move(10000, 11000)
  Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
     Static snPos!

  If snPos >= 9500 Then
    Timer1.Enabled = False
    Exit Sub
  End If

  Call Form1.Move(10000, snPos)

  snPos = snPos + 150
End Sub

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOOWNERZORDER = &H200      

Private Sub Form_Load()
  Call SetWindowPos(hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOOWNERZORDER)
End Sub

Label1 = Numero Mod Divisor