Sub CreateListItem3( b As B4XLoadingIndicator,Width As Int, Height As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("CellItem3")
b.Show
Return p
End Sub
Sub TabHost1_TabChanged
i = 0
clv1.Clear
B4XLoadingIndicator1.Initialize(B4XLoadingIndicator1,"indicator")
clv1.Add(CreateListItem3(B4XLoadingIndicator1,100%x,50dip),B4XLoadingIndicator1)
clv1.Refresh