BoatAnimation.InitializeTranslate("AnimationLeft", 0dip, 0, -130dip, 0)
BoatAnimation.Duration = 700
BoatAnimation.RepeatCount = 0
BoatAnimation.RepeatMode=BoatAnimation.INTERPOLATOR_LINEAR
BoatAnimation.PersistAfter = True
BoatAnimation.Start(BoatPanel1)