Qu'es-ce que tu entends par "ajouter un 0"?
Tu veux qu'à l'ouverture du formulaire d'ajout de contact, il y ai déjà un zéro?
C'est normalement que tu ne vois aucun label ni aucune textbox, elles sont générées dynamiquement dans le module de classe framePP
Pour le fonctionnement global, de manière dynamique j'ajoute des cadres (frame) dans les différentes pages du multipage.
# Dans le _Initalize du formulaire
Set ..... = MultiPage1.Pages(i - 1).Controls.Add("Forms.Frame.1")
Pour chacun de ces cadres (initialement vide), j'ajoute les différents éléments qui le composent:
# Dans le module de classe framePP, dans la procédure customizeFrame
Set mLabel1 = frameColis.Controls.Add("Forms.Label.1") 'contiendra le premier titre
Set mLabel2 = frameColis.Controls.Add("Forms.Label.1") 'contiendra le second titre
... 'etc...
Set mCode = frameColis.Controls.Add("Forms.Textbox.1")
Set mVille = frameColis.Controls.Add("Forms.Textbox.1")
Je dimensionne ET je place les différents éléments dans le cadre les uns par rapport aux autres
# Dans le module de classe framePP, dans la procédure initialiserControles
mLabel1.Width = 282
Je remplis les combobox (liste déroulantes)
# Dans le module de classe framePP, dans la procédure remplirCombobox
Private Sub mChoixNumero_Change()
If mChoixNumero.ListIndex <> -1 Then
With mChoixNumero
mNom.Value = donnees(.ListIndex + 1, 3)
...
mVille.Value = donnees(.ListIndex + 1, 9)
End With
End If
End Sub