Sub Globals
Dim pnl As Panel
Dim anim As Animation
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnl.Initialize("pnl")
pnl.Color = Colors.Red
Activity.AddView(pnl, 0, 100%y, 100%x, 200dip)
anim.InitializeTranslate("anim", 0, 0, 0, -200dip)
anim.Duration = 1000
anim.Start(pnl)
End Sub
Sub anim_AnimationEnd
pnl.Top = 100%y - 200dip
End Sub