Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("L_Page2")
ImageView1.Visible=True
ImageView5.Visible=False
ImageView4.Visible=True
ImageView8.Enabled=False
ImageView8.Visible=False
Sub Label3_Click
Activity.RemoveAllViews
StartActivity("Page3")
Activity_Create(True)
End Sub
Sub Label2_Click
Activity.RemoveAllViews
StartActivity("Page3")
Activity_Create(True)
End Sub
Sub ImageView4_Click
Activity.RemoveAllViews
StartActivity("Main")
Activity_Create(True)
End Sub
Sub ImageView5_Click
Activity.RemoveAllViews
StartActivity("Main")
Activity_Create(True)
End Sub
Sub ImageView6_Click
Label4.Visible=True
Timer1.Initialize("Timer1", 3600)
Timer1.Enabled=True
End Sub
Sub Timer1_tick
Label4.Visible=False
Timer1.Enabled = False
End Sub
Sub ImageView7_Click
Label4.Visible=True
Timer1.Initialize("Timer1", 3600)
Timer1.Enabled=True
End Sub
Sub ImageView8_Click
Activity.RemoveAllViews
StartActivity("Page2")
Activity_Create(True)
End Sub
Sub ImageView2_Click
EditText1.Enabled=False
ImageView2.Visible=False
If EditText1.Text="Ajeggagay" Then
Label2.Visible=True
Else
Label3.Visible=True
ImageView1.Visible=False
ImageView3.Visible=True
ImageView5.Visible=True
ImageView4.Visible=False
ImageView6.Visible=False
ImageView7.Visible=True
ImageView8.Enabled=True
ImageView8.Visible=True
End If
End Sub