Sub Activity_Create(FirstTime As Boolean)
For i=0 To 9
Dim MyButton As Button
MyButton.Initialize("MyButton")
Activity.AddView(MyButton, 0, 10%y*i, 100%x, 10%y)
MyButton.Text=Rnd(10,20)
Next
'MyButton_Click
End Sub
Sub MyButton_Click
Dim b As Button
b=Sender
For i=b.Text To 0 Step -1
b.Text=i
Sleep(1000)
Next
End Sub