Public Sub ShowPanel(pnl As Panel)
pnl.Visible= True
Dim Ani As Animation
Ani.InitializeTranslate("", 0, Activity.Height, 0, 0)
Ani.Duration= 500
Ani.Start(pnl)
End Sub
Public Sub HidePanel(pnl As Panel)
Dim Ani As Animation
Ani.InitializeTranslate("EndAni", 0, 0, 0, pnl.Height )
Ani.Duration= 500
Ani.Start(pnl)
pnl.Visible= False
End Sub
Sub EndAni_AnimationEnd
pnlSlide.Visible= False
Log("End Animation")
End Sub