Option Explicit
 
Public iCount As Integer
Const xSpeed = 3
Const ySpeed = 0.0001
 
Private Sub tmrMove_Timer()
    iCount = iCount + 1
    If imgShot.Left < 1000 Then
        imgShot.Move imgShot.Left + xSpeed, imgShot.Top + ((iCount ^ 2) * _
          ySpeed)
    Else
        tmrMove.Enabled = False
    End If
End Sub