How can I make the text move smoother?

Private Sub Timer1_Timer()
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 200
Else
Text1.Top = 4800
End If

End Sub

The timer interval is set at 300...