Dim bmpstart1, bmpstart2, bmpconfig1, bmpconfig2, bmphelp1, bmphelp2 As Bitmap
bmpstart1 = LoadBitmap(File.DirAssets, "Start_Icon_MyPhone1.png")
bmpstart2 = LoadBitmap(File.DirAssets, "Start_Icon_MyPhone2.png")
bmpconfig1 = LoadBitmap(File.DirAssets, "Start_Icon_Advanced_Config1.png")
bmpconfig2 = LoadBitmap(File.DirAssets, "Start_Icon_Advanced_Config2.png")
bmphelp1 = LoadBitmap(File.DirAssets, "Start_Icon_Help1.png")
bmphelp2 = LoadBitmap(File.DirAssets, "Start_Icon_Help2.png")
'TabHost1.AddTabWithIcon ("Main", bmp1, bmp2, "page1") 'load the layout file of each page
TabHost1.AddTabWithIcon("", bmpstart1, bmpstart2, "page1") 'Main
TabHost1.AddTabWithIcon("", bmpconfig1, bmpconfig2, "page2") 'Config
TabHost1.AddTabWithIcon("", bmphelp1, bmphelp2, "page3") 'Help