B4J Question ABMModalSheet with Fixed Footer

Sub createmodalsheet(params() As UPSHistory) As ABMModalSheet
    Dim myModal As ABMModalSheet
'''    Dim chrono As ABMChronologyList
    myModal.Initialize(page, "upshistory", False, False ,"mymodal")
    myModal.Content.UseTheme("mymdal")  '''modalcontent
    myModal.Footer.UseTheme("modalfooter")   '''modalfooter
    myModal.IsDismissible = False
   
    ' create the grid for the content
    myModal.Content.AddRowsM(2,True,  -10, 0,"").AddCells12MP(1, 0,0,0,0,"centre")
    myModal.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
   
    ' add paragraph
    myModal.Content.Cell(1,1).AddComponent(ABMShared.BuildParagraphBQWithZDepth(page,"par1","UPS Tracking Information for " & trackingNumber) )

    chrono.Clear
    Dim clrs() As String = Array As String("red", "blue", "green")
    For i = 0 To params.Length - 1
    Dim random As Int
    random = Rnd(0, 3)
    Dim clr As String = clrs(random)
    Log("color: " & clr)
    If params(i).Description.Contains("Delivered") Then
        clr = "green"
    else if params(i).Description.Contains("Out For Delivery") Then
        clr = "blue"
    Else
        clr = "yellow"
    End If
    chrono.AddSlide("slide"&(i+1), BuildFiche((i+1), params(i).time, params(i).Date, params(i).Description, "", clr), clr)
    Next
'''    chrono.Refresh
    Try
        Dim comp As ABMChronologyList = myModal.Content.Cell(2,1).Component("chrono")
        Log("component id: " & comp.ID)
    Catch
        Log("component doesn't exist yet, let's create it..")
        myModal.Content.Cell(2, 1).AddComponent(chrono)
    End Try

    '''myModal.Footer.AddRowsM2(1, True, 0, 0, 330, 330, "").AddCells12MP(1, 0, 0, 20, 20, "mymodal")
    myModal.Footer.AddRows(1,True,"").AddCellsOS(1,5,5,5,2,2,2,"")
    '''mymodal.Footer.BuildGrid ' IMPORTANT!
    '''myModal.Footer.SetFixedPosition("0 px", "500 px", "0 px", "600 px")
    myModal.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
   
'''    chrono.Refresh
   
    ' create the button for the footer
    Dim msbtn1 As ABMButton
    msbtn1.InitializeFlat(page, "closeupstracking", "", "", "Close", "footerbutton")
    myModal.Footer.Cell(1,1).AddComponent(msbtn1)
   
    chrono.Refresh
   
    Return myModal
End Sub