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