VB6: Créer ComboBox dynamiquement avec index

Bonjour,

Tout d'abord, je précise que je programme en VB6... hé oui, je dois supporter de vieilles applications!

Je sais comment créer un combobox de façon dynamique par contre, j'aimerais savoir la méthode afin de créer un combobox du même nom qu'un déjà existant avec un index différent.

Voici le code:

Dim cbo As ComboBox
Dim CboName As String: CboName = "cboEquipement"
Set cbo = Controls.Add("VB.combobox", "" & CboName & "", FrmModifierLien)
With cbo

.Index = i + 1 <== CECI NE FONCTIONNE PAS

.Visible = True
.FontSize = Me.cboEquipement(i).FontSize
.Top = Me.cboEquipement(i).Top + Me.cboEquipement(i).Height + 10
.Left = Me.cboEquipement(i).Left
.Width = Me.cboEquipement(i).Width
End With

MErci d'avance,

Pascal

Configuration: Windows XP
Internet Explorer 7.0