Animate left to right problem

[Scantech]

Sub AnimateViewShow(Comp As View)

   Dim Animate As Animation
   Animate.InitializeTranslate("", -Comp.Width, Comp.Top, Comp.Left, Comp.Top) 
   Animate.Duration = 1500
   
   Animate.Start(Comp)
   Comp.Visible = True
End Sub

Does not work properly. The panel view left and top value is set up to be centered at the screen during Activity_Create. It is off center when it is animating.

 

[Erel]

Have you seen this example: Android SlidingPanels - Simple way to create sliding layouts