in questo modo
Sub Timer1_Timer()

TxtCanzone.Top = TxtCanzone.Top - 5
End Sub