dim anim1 as xpAnimController
dim myQuad as xpBaseObject
dim endFrame as xpTextObject
self.GetAnimControllerByName("AnimController1", anim1)
self.GetObjectByName("Quad1", myQuad)
self.GetObjectByName("End Frame", endFrame)
dim xVal as string = endFrame.Text
anim1.SetKeyFrameValueTCB(myQuad, 0, "Position.X", 0, 1, 0, 0)
anim1.SetKeyFrameValueTCB(myQuad, 100, "Position.X", xVal, 1, 0, 0)