Sub RefreshTabStrip(ts As TabStrip)
Dim jo As JavaObject = ts
jo.RunMethod("resetAdapter", Null)
jo.GetFieldJO("vp").RunMethodJO("getAdapter", Null).RunMethod("notifyDataSetChanged", Null)
jo.GetFieldJO("tabStrip").RunMethod("notifyDataSetChanged", Null)
End Sub