Remplire une dropdownlist

    Private Sub btnRechercheIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechercheIndex.Click

        Dim Indice As Int32 = RechercheIndice("Claude")
        ' TextBox pour afficher l'indice
        Me.tbx_Index.Text = Indice.ToString
        'Positionnement du ComboBox sur l'élément trouvé
        Me.cbxListeItem.SelectedIndex = (Indice)

    End Sub

Private Function RechercheIndice(ByVal pPrenom As String) As Int32

        Dim Indice As Int32 = 0
        Dim Limite As Int32 = Me.cbxListeItem.Items.Count - 1
        For Boucle As Int32 = 0 To Limite
            If (cbxListeItem.Items.Item(Boucle) Is pPrenom) Then
                Indice = Boucle
                Exit For
            End If
        Next

        Return Indice

    End Function

private void btnRechercheIndex_Click(System.Object sender, System.EventArgs e)
{
 Int32 Indice = RechercheIndice("Claude");
 // TextBox pour afficher l'indice
 this.tbx_Index.Text = Indice.ToString();
 //Positionnement du ComboBox sur l'élément trouvé
 this.cbxListeItem.SelectedIndex = (Indice);

}

private Int32 RechercheIndice(string pPrenom)
{

 Int32 Indice = 0;
 Int32 Limite = this.cbxListeItem.Items.Count - 1;
 for (Int32 Boucle = 0; Boucle <= Limite; Boucle++) {
  if ((object.ReferenceEquals(cbxListeItem.Items.Item(Boucle), pPrenom))) {
   Indice = Boucle;
   break; // TODO: might not be correct. Was : Exit For
  }
 }

 return Indice;

}