Hola!
Segun tu codigo NO le dices que se mueva... lo dejas fijo, intenta con un Timer (Vb6.0), algo asi:
Código vb:
Ver originalPrivate X as integer
Private Sub Form_Load()
Timer.Interval=1000 ' 1 Segundo
Timer.Enabled=True
End Sub
Private Sub Timer_Timer()
X=X+1
Button1.Top = X
If X=20 then Timer.Enabled=False
End Sub