Sub OnKeyPress(ByVal KeyCode)
If KeyCode = 79 Then AddDebugText "Num animations = "&cm_IndyJones.NumAnimations
If KeyCode = 80 Then AddDebugText "Num frames in animation A = "&cm_IndyJones.Animation(0).NumFrames
If KeyCode = 81 Then AddDebugText "Duration in animation A = "&cm_IndyJones.Animation(0).Duration
If KeyCode = 75 Then AddDebugText "Loop A"&cm_IndyJones.Animation(0).Frame(1, cm_IndyJones.Animation(0).NumFrames, 1)
If KeyCode = 76 Then AddDebugText "Freez A frame 10"&cm_IndyJones.Animation(0).Frame(10, 10)
If KeyCode = 77 Then AddDebugText "Play A frame 100-199"&cm_IndyJones.Animation(0).Frame(100, 199)
If KeyCode = 71 Then AddDebugText "Loop A frame 100-150"&cm_IndyJones.Animation(0).Frame(100, 150, 100)
If KeyCode = 72 Then AddDebugText "Play A frame 199-100"&cm_IndyJones.Animation(0).Frame(199, 100)
If KeyCode = 73 Then AddDebugText "Play A frame 100-199"&cm_IndyJones.Animation(0).Frame(100, 199)
End Sub