I'm sure this did work bit now it doesn't. I don't know why
Gives error on line 51
B4X:
Sub Class_Globals
#if b4j
Private fx As JFX
#end if
#if b4a
Private rp As RuntimePermissions
#End If
Dim carmodelpage As CarModels
Dim toolPage As Tool
Private Root As B4XView
Private xui As XUI
Private ivAddCar As B4XView
Private WobbleMenu1 As WobbleMenu
Private clvMakes As CustomListView
Private CachedPanels As List
Type ImageData (FileName As String, Title As String, Bitmap As B4XBitmap, Model As Int)
Private DBFileDir As String
'----PUBLIC ------------
Public options As Map
Public searchString As String = ""
Public B4XFTxtSearch As B4XFloatTextField
Public MyTools,MyToolWish As List
Public currentTool As String = ""
Public currentToolType As Int = 1
'------Drawer-------
Private drawer As B4XDrawer
Private HamburgerIcon As B4XBitmap
Private clvMenu As CustomListView
Private MenuItemLbl As B4XView
'----TOOLS---------
Private btnTool, lblKeyway, rbtnIHave, rbtnIWant As B4XView
Private ToolFileName = "MyTools.txt", ToolFileNameW = "MyToolsW.txt" As String
Private clvTools As CustomListView
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
drawer.Initialize(Me, "Drawer", Root, 200dip)
drawer.CenterPanel.LoadLayout("MainPage")
B4XPages.SetTitle(Me,"LARA 4 alpha")
B4XPages.GetManager.TransitionAnimationDuration = 0
carmodelpage.Initialize
toolPage.Initialize
B4XPages.AddPage("model page",carmodelpage)
B4XPages.AddPage("tool page",toolPage)
HamburgerIcon = xui.LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True)Gives error on line 51