B4J Question B4j Class Destructor

Sub AppStart (Args() As String)

    Dim JdbcUrl As String = "jdbc:mysql://redacted"
    Dim DriverClass As String ="com.mysql.jdbc.Driver"
    Dim DBUser As String = "redacted"
    Dim DBPassword As String = "redacted"
   
    Try
        dbpool.Initialize(DriverClass,JdbcUrl,DBUser,DBPassword)

        'Dim jo As JavaObject = dbpool
        'jo.RunMethod("setCheckoutTimeout",Array As Object(5000))

    Catch
        Log("Failed to initialise DB Pool")
        Log(LastException)
        ExitApplication
    End Try

...

    Try
        dbcon=Main.dbpool.GetConnection   
    Catch
        Log("Cannot get pooled DB connection")
        logFailedData
        Log(LastException)
    End Try

dbcon = Main.dbpool.GetConnection 'no need to catch the error here.
Try
 ... 'work with connection
Catch
 ...
End Try
dbcon.Close

Sub CreateObject
    Dim myObj as Object : myObj.Initialize
    globalObjectList.Add(myObj)
End Sub

Dim objIndex = globalObjectList.IndexOf(myObj) As Int
If objIndex = -1 Then Return False
globalObjectList.RemoveAt(objIndex)
Return True

Sub Globals
    Dim Heap as Map
End Sub

Sub CreateNewObject As Long
    'Simulate a 64-bit memory address
    Dim memoryAddress = DateTime.Now As Long
    'Create a local object
    Dim myObject As Object
    If Heap.IsInitialized = False Then Heap.Initialize
    Heap.Put(memoryAddress, myObject)
    Return memoryAddress
End Sub

Sub LaLaLa
    'Create, store and get a new object (C++ style)
    'Object *newObject = new Object;
    Dim newObject = Heap.Get(CreateNewObject)

    ' - or -
    Dim memoryAddress = CreateNewObject As Long
    Dim newObject = Heap.Get(memoryAddress)

    'Destroying
    Heap.Remove(memoryAddress)

    'The reference to newObject is deleted from the
    'Heap (map) and the local reference will be deleted
    'once you exit this Sub (LaLaLa). At this point, the
    'Garbage Collector will recognize that there are no
    'more live references to newObject and HOPEFULLY
    'do its job. ;)
End Sub