Sub LAY_RemovePanelByTag( pnlParentPanel As Panel, PanelTag As String )
Dim PopupPanel As Panel
If pnlParentPanel.IsInitialized = True Then
If LAY_GetViewIndexInPanel(pnlParentPanel, PanelTag) <> - 1 Then
PopupPanel = pnlParentPanel.GetView( LAY_GetViewIndexInPanel(pnlParentPanel, PanelTag) )
'********** This code also added to try resolve the issue with B4I
For i = PopupPanel.NumberOfViews - 1 To 0 Step - 1
Dim vView As View = PopupPanel.GetView(i)
If vView Is ScrollView Then
Dim svView As ScrollView = vView
svView.Panel.RemoveAllViews
End If
LAY_RemoveView(PopupPanel.GetView(i))
Next
'******* end of added code
PopupPanel.RemoveAllViews
LAY_RemoveView(PopupPanel )
PopupPanel = Null 'This was added as well to try to resolve the issue
End If
End If
End Sub
Sub LAY_RemoveView( vView As View )
#if B4A
vVIew.RemoveView
#else
vView.RemoveViewFromParent
#end if
vView = Null 'This was added as well to try to resolve the issue
End Sub