'Ajout de l'indicateur de page
ViewPagerTabs.Initialize(ViewPager)
ViewPagerTabs.Color =Colors.Transparent
Activity.AddView(ViewPagerTabs, 0, 0, pnParent.Width, 35dip)
'Ajout de l'indicateur de sélection
ViewPagerTabs.LineHeight = 5dip
ViewPagerTabs.LineColorCenter = pColorHighLight
ViewPagerTabs.BackgroundColorPressed = pColorHighLight
'Ergonomie du texte
ViewPagerTabs.TextSize=pTextSize
ViewPagerTabs.TextColor = Colors.Gray
ViewPagerTabs.TextColorCenter = Colors.White
'Ajout d'une ligne de séparation
Dim cvsLayer As Canvas
Dim posY As Int
posY = ((ViewPagerTabs.TextSize + ViewPagerTabs.LineHeight)*GetDeviceLayoutValues.Scale) + ViewPagerTabs.TabPaddingTop + ViewPagerTabs.TabPaddingBottom
cvsLayer.Initialize(ViewPagerTabs)
cvsLayer.DrawLine(0, posY,ViewPagerTabs.Width,posY,pColorHighLight,1dip)