'Return the removed page
Sub RemovePage (ts As TabStrip, Index As Int) As Panel
If ts.CurrentPage >= Index Then ts.ScrollTo(0, False)
Dim jo As JavaObject = ts
Dim p As Panel = jo.GetFieldJO("pages").RunMethod("remove", Array(Index))
jo.GetFieldJO("titles").RunMethod("remove", Array(Index))
'remove panel child inside current tab index
Dim r As Reflector
r.Target = jo.GetField("tabStrip")
Dim tc As Panel = r.GetField("tabsContainer")
tc.RemoveViewAt(Index)
RefreshTabStrip (ts)
Return p
End Sub