Android Question activity button beginners problem

Sub Globals
   Dim Cycler as timer
End Sub

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

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")
    Dim btn1,btn2 As Button

    btn1.Initialize("btn1")
    btn2.Initialize("btn2")
    Activity.AddView(btn1, 10dip, 10dip, 100dip, 100dip)
    Activity.AddView(btn2, 110dip, 110dip, 100dip, 100dip)
    btn1.Text="1"
    btn2.Text="2"

    appactive = True

    Cycler.Initialize("cycler", 200)
    Cycler.Enabled = True 
End Sub

Sub btn1_Click
    'Msgbox("bye","")
    appactive = False
End Sub

Sub Cycler_Tick
   If appactive then
   Log("...")   ' log works fine
   DoEvents  
  end if

Sub btn1_Click
    Msgbox("bye","")
    appactive = False
End Sub

sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim appactive As Boolean
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.
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")
    test1
End Sub

Sub test1
    Private btn1,btn2 As Button
    Dim Cycler As Timer

    btn1.Initialize("btn1")
    btn2.Initialize("btn2")
    Activity.AddView(btn1, 10dip, 10dip, 100dip, 100dip)
    Activity.AddView(btn2, 110dip, 110dip, 100dip, 100dip)
    btn1.Text="1"
    btn2.Text="2"

    appactive = True
    Cycler.Initialize("cycler", 200)
    Cycler.Enabled = True
End Sub

Sub Cycler_Tick
   If appactive Then
   Log("...")   ' log works fine
   DoEvents
   Else
       ExitApplication
  End If
End Sub

Sub btn1_Click
    appactive = False
    Msgbox("Exit App","")