Android Question how to avoid using the doevents

#Region  Project Attributes
    #ApplicationLabel: UI Anim Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private Label1 As Label  'a label in Layout1
   
    Private Anim As Animation
    Private Timer1 As Timer
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")

    Anim.Initialize
    Anim.Clear
   
    Dim x As Int
    Dim y As Int
    Dim w As Double
    For w = 0.0 To 3600.0 Step 60.0/90.0
        x = SinD(w)*50dip
        y = CosD(w)*50dip
        Dim A As AnimObj
        A.Initialize
        A.Obj = Label1
        A.Left = 50%x + x
        A.Top = 50%y + y
        A.Width = Label1.Width
        A.Height = Label1.Height
        Anim.Add(A)
    Next

    Timer1.Initialize("Timer1",20)
    Timer1.Enabled = True

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Timer1_Tick
   
    Anim.Tick
   
End Sub

Sub Class_Globals

    Type AnimObj (Obj As View,Left As Int,Top As Int,Width As Int,Height As Int)
    Dim List1 As List  
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
   
    List1.Initialize
   
End Sub

Public Sub Clear
    List1.Clear
End Sub

public Sub Add(Obj As AnimObj)
   
    List1.Add(Obj)
   
End Sub

Public Sub Tick
   
    If List1.Size = 0 Then Return
   
    Dim Obj As AnimObj
    Obj = List1.Get(0)
   
    Dim ObjUI As View
    ObjUI = Obj.Obj
    ObjUI.Left = Obj.Left
    ObjUI.Top = Obj.Top
    ObjUI.Width = Obj.Width
    ObjUI.Height = Obj.Height
    ObjUI.Invalidate
   
    List1.RemoveAt(0)
   
End Sub