[dimanche13]

Сделал вот так, честно сказать, выдрал у кого-то из кода...

If KeyDown(KEY_UP) Then animate = True
Dir = DirUp
If animate = True And (Timer + Temp < MilliSecs())
frame :+ 1
If frame > 2
frame = 0
animate = False
End If
Timer = MilliSecs()
End If

а как бы предложил ты, JohnK ?