Sub Process_Globals
Private timer1 As Timer
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim b As Button
b.Initialize("")
b.Text = "Sdf"
Activity.AddView(b, 10dip, 10dip, 100dip, 100dip)
b.SetLayoutAnimated(1000, 200dip, 200dip, 40dip, 40dip)
timer1.Initialize("timer1", 1000)
timer1.Enabled = True
End Sub
Private Sub Timer1_Tick
Log("Animation completed!")
timer1.Enabled = False
End Sub