TabHost1.AddTabWithIcon ("A l'affiche", bmp1_kinda, bmp2_kinda, "affiche")
TabHost1.AddTabWithIcon ("Se restaurer", bmp1_restau, bmp2_restau, "restau")
TabHost1.AddTabWithIcon ("Shopping", bmp1_shopping, bmp2_shopping, "shopping")
TabHost1.AddTabWithIcon ("Sortir", bmp1_sortir, bmp2_sortir, "Sortir")