Android Question why does this not work

dim n as int
For n = 0 to 1000
Label1.text = "Count = " & n
DoEvents
WaitFor(500)
Next

Sub WaitFor(Milliseconds As Int)
Dim s As Long
s = DateTime.Now
Do While DateTime.Now < s + Milliseconds
Loop
End Sub

Sub Process_Globals
   Dim timer1 As Timer   
End Sub

Sub Globals
   Private Label1 As Label
   Private counter As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)   
   
   Label1.Initialize("")
   Activity.AddView(Label1,20dip,20dip,60dip,30dip)
   
   timer1.Initialize("timer1",1000) ' 1000 = 1 sec
   timer1.Enabled = True

End Sub

Sub timer1_tick
   
   counter = counter + 1
  Label1.text = "Count = " & counter
   
End Sub