If xngTest.IsInitialized = False Then
Panel1.Initialize("p1")
Panel2.Initialize("p2")
Panel3.Initialize("p3")
TabHost1.Initialize("th")
Activity.AddView(TabHost1, 0dip, 0dip, 100%x, 100%y)
TabHost1.AddTab2("Color", Panel1)
TabHost1.AddTab2("Animal", Panel2)
xngTest.Initialize("xngTest")
xngTest.FastScroll = True : xngTest.Multiselect = False
xngTest.RowHeight = 23dip : xngTest.HeaderHeight = 23dip
xngTest.HeaderTextSize = 14 : xngTest.RowTextSize = 14
xngTest.HeaderTextColor = Colors.Yellow : xngTest.RowTextColor = Colors.Yellow
xngTest.SelectedOddColor = Colors.Green : xngTest.SelectedEvenColor = Colors.Magenta
' set column
Dim tCols(4) As xnGridCol
tCols(0).Initialize2("Cek", "cek", 10%x, Gravity.CENTER)
xngTest.ColAppend(tCols(0))
tCols(1).Initialize2("Lokasi", "lokasi", 30%x, Gravity.CENTER)
xngTest.ColAppend(tCols(1))
tCols(2).Initialize2("Latitude", "latitude", 25%x, Gravity.CENTER)
xngTest.ColAppend(tCols(2))
tCols(3).Initialize2("Longitude", "longitude", 25%x, Gravity.CENTER)
xngTest.ColAppend(tCols(3))
xngTest.GridWidth = 1dip
Panel1.AddView(xngTest, 0dip, 0dip, 100%x, 100%y)
End If
For i = 1 To 1000
xngTest.RowAppend(Array As String(i, i+1, i+2, i+3))
Next
xngTest.GridCreate2(False)