Android Question Updating from old Table Class to Flex Table Class [SOLVED]

         'This changes the file name for the active spreadsheet throughout the whole program:
        Starter.FileName = "todo list.xls"
   
        LoadTable
'        TableSave_Click    'klaus
    Else
    End If
'    'This changes the file name for the active spreadsheet throughout the whole program:
'    Starter.FileName = "todo list.xls"
'  
'    LoadTable
'    TableSave_Click    'klaus
End Sub

    'add the headers to the sheet
'    For Each lbl As Label In table1.Header
    For i = 0 To table1.NumberOfColumns - 1
        Private cell As WritableCell
'        cell.InitializeText(col, 0, lbl.Text)
        cell.InitializeText(col, 0, table1.HeaderNames.Get(i))
        cell.SetCellFormat(cellFormat)
        sheet1.AddCell(cell)
        sheet1.SetColumnWidth(col, 15)
        col = col + 1
    Next

Sub Process_Globals
    Log("********Process_Globals sub start")
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Type Todo(ID As Short, Name As String, Status As Byte, Context As String, Category As Byte, Priority As Int, Note As String)
    Public Contexts(40,7) As String
    Public LastContext As Byte
    Public ExitFlag As Byte
    Public Close As Boolean
    Public NotificationAllowed As Boolean = True
    Public MenuBuilt As Boolean = False
    
    Public rp As RuntimePermissions
    Public myMap As Map
    Public WhichTodosToShow As String = "All" 'This will set the value only at the beginning of the program.
    Public TodoList As List
    Public Dir As String
    Public FileName As String
End Sub

Sub Globals
    Log("Globals sub start")
    'These global variables will be redeclared each time the activity is created.
    Public table1 As Table
    Private Statuses(12,2) As String
    Private Categories(40,2) As String
    Private HeaderRow(7) As String
    Private n As Notification = CreateNotification("Tap to Proceed.") 'This immediately calls the CreateNotification sub.
    Public Table1Header(7) As String
'    Private lblPleaseWait As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Log("Activity_Create sub started FIRST TIME")
    Activity.LoadLayout("Main")
    
    'AddMenuItems must be at the beginning of Activity_Create or they won't show
    Activity.AddMenuItem("Show Close Todos", "ShowCloseTodos")
    Activity.AddMenuItem("Leave Here", "LeaveHere")
    'Activity.AddMenuItem("Load Table", "LoadTable")
    Activity.AddMenuItem("Save Table", "TableSave")
    Activity.AddMenuItem("Allow Context Notification", "AllowContextNotification")
    Activity.AddMenuItem("Clear Context Notification", "ClearContextNotification")
    Activity.AddMenuItem("Exit Program", "ExitProgram")

    If FirstTime Then
        myMap.Initialize
        'Get access to downloads
        rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
        Log("Finished getting permission")
        If Result = False Then
            Log("No external permissions")
            Return
        End If
    
        Dir  = File.Combine(File.DirRootExternal,"Download")
        FileName = "todo list.xls"
        
        LoadArrays
    
    End If
End Sub

Sub Activity_Resume
    Log("Activity_Resume sub start")
    'Any call to Sleep() or Wait For will cause a return to the parent sub.
    Wait For (CheckAndRequestNotificationPermission) Complete (HasPermission As Boolean)
    Log("Check and Requestion Notification Permission should be complete")
    If HasPermission = False Then
        Log("no permission")
        ToastMessageShow("no permission", True)
        Return
    End If
    
    'Get access to fine location
    rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        StartService(Tracker)    'klaus
    Else
        ToastMessageShow("No permission...", True)
    End If
    
    'Get access to downloads
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    Log("Finished getting permission")
    If Result = False Then
        Log("No external permissions")
        Return
    End If
    
    'Log("WhichTodosToShow = "&WhichTodosToShow)
    Log("Calling LoadTable from Activity_Resume")
    LoadTable
End Sub