Dim p As Panel
p.Initialize("")
Dim bmp As Bitmap = LoadBitmapResize(File.DirAssets, "baseline_settings_phone_black_48dp.png", 32dip, 32dip, True)
TabHost1.AddTabWithIcon2("", bmp, bmp, p)
TabHost1.AddTabWithIcon2("", bmp, bmp, p)
TabHost1.AddTabWithIcon2("", bmp, bmp, p)
TabHost1.AddTabWithIcon2("", bmp, bmp, p)