Games x2 onetime animation?

'space invaders example
Private Sub EnemyHit_WithMissle(ft As X2FutureTask)
    Dim bodies As X2BodiesFromContact = ft.Value
    bodies.OtherBody.Delete(X2.gs) 'delete the missile
    Dim enemy As X2BodyWrapper = bodies.ThisBody
    enemy.CurrentFrame = 2 'set to the explosion frame (no animation in this case)
    enemy.SwitchFrameIntervalMs = 0
    IncrementScore(100)
    X2.AddFutureTask(Me, "Delete_Enemy", 100, enemy) 'delete object after 100ms
    X2.SoundPool.PlaySound2("invaderkilled", 0.3)
End Sub

Private Sub Delete_Enemy(ft As X2FutureTask)
    Dim enemy As X2BodyWrapper = ft.Value
    If enemy.IsDeleted Then Return
    enemy.Delete(X2.gs)
End Sub

Sub Destroy_Asteroid (ft As X2FutureTask)
    Dim bc As X2BodiesFromContact = ft.Value
    Dim asteroid As X2BodyWrapper = bc.OtherBody
    If asteroid.IsDeleted Then Return
    Dim explosion As X2BodyWrapper = TileMap.CreateObject2ByName(ObjectLayer, "explosion")
    explosion.Body.SetTransform(asteroid.Body.Position, 0)
    X2.SoundPool.PlaySound("asteroid")
    Dim FireBody As X2BodyWrapper = bc.ThisBody
    FireBody.Delete(X2.gs)
    asteroid.Delete(X2.gs)
    ScoreLabel1.Value = ScoreLabel1.Value + 100
End Sub

Public Sub Tick (GS As X2GameStep)
    Dim touch As X2Touch = Multitouch.GetSingleTouch(PanelForTouch)
    If touch.IsInitialized Then
        For Each bw As X2BodyWrapper In X2.GetBodiesIntersectingWithWorldPoint(X2.ScreenPointToWorld(touch.X, touch.Y))
            If bw.Name.StartsWith("door") Then
                Dim dd As DoorData = bw.Tag
                Select dd.State
                    Case DOOR_CLOSED
                        'open door
                        dd.State = DOOR_OPENING
                        bw.SwitchFrameIntervalMs = 50
                        bw.X2.AddFutureTask(Me, "DoorOpened_Completed", bw.SwitchFrameIntervalMs * bw.NumberOfFrames, bw)
                    Case DOOR_OPENED
                        'close door
                        dd.State = DOOR_CLOSING
                        bw.X2.AddFutureTask(Me, "DoorClosing_Process", 50, bw)
                End Select
            End If
        Next
    End If
End Sub

Private Sub DoorClosing_Process (ft As X2FutureTask)
    Dim bw As X2BodyWrapper = ft.Value
    If bw.CurrentFrame = 0 Then
        bw.Tag.As(DoorData).State = DOOR_CLOSED
    Else
        bw.CurrentFrame = bw.CurrentFrame - 1
        bw.X2.AddFutureTask(Me, "DoorClosing_Process", 50, bw)
    End If
End Sub
Private Sub DoorOpened_Completed (ft As X2FutureTask)
    Dim bw As X2BodyWrapper = ft.Value
    bw.Tag.As(DoorData).State = DOOR_OPENED
    bw.SwitchFrameIntervalMs = 0
End Sub