If you don't want to use a Timer Control, use the built in Timer function. Make a form with a CommandButton and a PictureBox

Put this code in a module.

Code:
Function Jump(VarVal As Control)
    
    tmpTop = VarVal.Top
    
    PauseTime = 0.2
    Start = Timer
    Do While Timer < Start + PauseTime
        VarVal.Top = VarVal.Top - 1
    Loop
    Finish = Timer
    
    Pausetimer = 0.2
    Start = Timer
    Do While Timer < Start + PauseTime
        VarVal.Top = VarVal.Top + 1
    Loop
    Finish = Timer
    
    Pausetimer = 0.1
    Start = Timer
    Do While Timer < Start + PauseTime
        VarVal.Top = tmpTop
    Loop
    Finish = Timer
    
End Function
Now put this code in a CommandButton

Code:
Private Sub Command1_Click()

A = 0
Do While A < 1
DoEvents
RetVal = Jump(Form1.Picture1)
Loop

End Sub