B4J Question TabClosingPolicy

Sub OnCloseRequest_Event (MethodName As String, Args() As Object) As Object

    Dim e As Event = Args(0)
    Dim jo As JavaObject = e
    Dim page As TabPage = jo.RunMethod("getSource", Null)
    'consume the event to prevent it from closing
    For a = 0 To ListView1.Items.Size - 1
        Private obj As Pane = ListView1.Items.Get(a)
        For Each n As Node In obj
            If n Is Pane Then
                Private pan As Pane
                pan = n
                For Each m As Label In pan
                    If m Is Label Then
                        Private lbl As Label
                        lbl = m
                        If page.Text = lbl.text Then
                            e.Consume
                        End If
                    End If
                Next
            End If
        Next
    Next

    If page.Text = "my_always_not_closing_tab" Then
        e.Consume
    End If

    Return Null

End Sub

setTabClosingPolicy(tab1, "UNAVAILABLE") '"ALL_TABS", "SELECTED_TAB"

Public Sub setTabClosingPolicy(Obj As Object, value As String)
    Dim jo As JavaObject = Obj
    jo.RunMethod("setTabClosingPolicy", Array As Object(value))
End Sub

setTabClosable(myPage, False)

Public Sub setTabClosable(Obj As Object, value As Boolean)
    Dim jo As JavaObject = Obj
    jo.RunMethod("setClosable", Array As Object(value))
End Sub