Sub move_player_Touch (Action As Int, X As Float, Y As Float)
Dim prev_X As Int
Dim prev_Y As Int
prev_X = 130
prev_Y = 370
Dim a1 As Animation
a1.InitializeTranslate("player_image",prev_X,prev_Y,X,Y)
a1.Duration = 1000
a1.Start(player_image)
prev_X = X
prev_Y = Y
End Sub