Sub Globals
Private btnMove As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub btnHide_Click
btnMove.SetVisibleAnimated(500, False)
End Sub
Sub btnShow_Click
btnMove.SetVisibleAnimated(500, True)
End Sub
Sub btnMove_Click
btnMove.SetLayoutAnimated(1000, Rnd(0, 90%x), Rnd(0, 90%y), Rnd(50dip, 200dip), Rnd(50dip, 200dip))
End Sub
Sub btnColors_Click
Activity.SetColorAnimated(1000, Colors.White, Colors.Red)
End Sub