iOS Question Database encryption and Background service questions

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: 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.
    Private Timer As Timer
    Private Counter As Int
    Public rp As RuntimePermissions
    Public PhoneEvent1 As PhoneEvents
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
  
    Dim jo As JavaObject
    jo.InitializeStatic("java.util.Locale").RunMethod("setDefault", Array(jo.GetField("US")))
  
    Timer.Initialize("Timer1",60000) 
    'PhoneEvent1.Initialize("PhoneEvent")
End Sub

Sub Service_Start (StartingIntent As Intent)
  
    Try
        Log("Service_Start")
        Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
        Timer.Enabled=True
      
    Catch
        Log("Service_Start " & LastException)
    End Try
  
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
  
    Try
        Log("Service_TaskRemoved")
    Catch
        Log("Service_TaskRemoved " & LastException)
    End Try
  
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Log("Error=" & Error & " StackTrace=" & StackTrace )
    Return True
End Sub

Sub Service_Destroy
    Try     
        Timer.Enabled=False
        Log("Timer Stopped")
    Catch
        Log("Service_Destroy " & LastException)
    End Try


End Sub

private Sub RunCounter
  
    Try
      
        Dim IsP_Main As Boolean
        Dim IsP_ClientList As Boolean
        Dim IsP_ClockOut As Boolean
        Dim IsP_DashBoard As Boolean
        Dim IsP_Facility As Boolean
        Dim IsP_ModRegistration As Boolean
        Dim IsP_NurseNotesNew As Boolean
        Dim IsP_PA As Boolean
        'Dim IsP_NursesVoiceMessages As Boolean
        Dim IsP_PatiantDetails As Boolean
        Dim IsP_PlacementTaskNotes As Boolean
        Dim IsP_PlacementTasks As Boolean
        Dim IsP_SelectedClient As Boolean
        Dim IsP_VisitDetails As Boolean
        Dim IsP_Visits As Boolean
        'Dim IsP_VoiceMessage As Boolean
        Dim IsP_UnscheduledShifts As Boolean
        Dim IsP_UnscheduledClockIn As Boolean
        Dim IsP_NoteEdit As Boolean
        Dim IsP_HHANote As Boolean
        Dim IsP_UseCamera As Boolean
        Dim IsP_ViewPhoto As Boolean
        Dim IsP_EmeregencyMemo As Boolean
        Dim IsP_SendAll As Boolean
        Dim IsP_Legal As Boolean
        Dim IsP_TOS_Privacy As Boolean
      
        IsP_Main=IsPaused(Main)
        IsP_ClientList=IsPaused(ClientsList)
        IsP_ClockOut=IsPaused(ClockOut)
        IsP_DashBoard=IsPaused(DashBoard)
        IsP_Facility=IsPaused(Facility)
        IsP_ModRegistration=IsPaused(modRegistration)
        IsP_PatiantDetails=IsPaused(PatientDetails)
        IsP_PlacementTaskNotes=IsPaused(PlacementTaskNotes)
        IsP_PlacementTasks=IsPaused(HHATasks)
        IsP_SelectedClient=IsPaused(SelectedClient)
        IsP_VisitDetails=IsPaused(VisitDetails)
        IsP_Visits=IsPaused(Visits)
        IsP_NurseNotesNew=IsPaused(NurseNotesNew)
        IsP_PA=IsPaused(PA)
        IsP_UnscheduledShifts=IsPaused(UnscheduledShift)
        IsP_UnscheduledClockIn=IsPaused(UnscheduledClockIn)
        IsP_NoteEdit=IsPaused(NoteEdit)
        IsP_HHANote=IsPaused(HHANote)
        'IsP_UseCamera=IsPaused(UseCamera)
        IsP_UseCamera=IsPaused(SimpleCamera)
        IsP_ViewPhoto=IsPaused(ViewPhoto)     
        IsP_EmeregencyMemo=IsPaused(EmergencyMemo)
        IsP_SendAll=IsPaused(SendAll)
        IsP_Legal=IsPaused(Legal)
        IsP_TOS_Privacy=IsPaused(TOS_Privacy)
      
        If IsP_ClientList And IsP_ClockOut And IsP_DashBoard And IsP_Facility And IsP_Main And _
            IsP_ModRegistration And IsP_PatiantDetails And IsP_PlacementTaskNotes And IsP_PlacementTasks And _
            IsP_SelectedClient And IsP_NurseNotesNew And  IsP_VisitDetails And IsP_Visits _
            And IsP_UnscheduledShifts And IsP_PA And IsP_UnscheduledClockIn And IsP_NoteEdit And _
            IsP_HHANote And IsP_UseCamera And IsP_ViewPhoto And IsP_EmeregencyMemo And IsP_SendAll And _
            IsP_Legal And IsP_TOS_Privacy Then
          
            Counter = Counter + 1
          
            If Counter = 10 Then             
              
                Timer.Enabled=False
              
                Main.IsLogOut=True
              
                StartActivity(Main)
            End If
          
        Else
            Counter = 0
        End If
  
    Catch
        Log("RunCounter " & LastException)
    End Try
  
End Sub

Sub timer1_tick
  
    Try
        RunCounter
        Log("Counter=" & Counter)
    Catch
        Log("timer1_tick " & LastException)
    End Try
  
  
End Sub