Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
[B] Dim bmp1, bmp2 As Bitmap
bmp1 = LoadBitmap(File.DirAssets, "ic.png")
bmp2 = LoadBitmap(File.DirAssets, "ic_selected.png")[/B]
[B] TabHost1.AddTabWithIcon ("Name", bmp1, bmp2, "page1") 'load the layout file of each page[/B]
TabHost1.AddTab("Color", "page2")
TabHost1.AddTab("Animal", "page3")
End Sub