Sub Globals
Dim TabHost1 As TabHost
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
TabHost1.Initialize("TabHost1")
ListView1.Initialize("ListView1")
Dim p As Panel
p.Initialize("")
TabHost1.AddTab2("Tab 1", p)
p.AddView(ListView1, 0, 0, -1, -1)
ListView1.FastScrollEnabled = True
Activity.AddView(TabHost1, 0, 0, 100%x, 100%y)
For i = 1 To 4000
ListView1.AddSingleLine(i)
Next
End Sub