[VB6] Focus dans une listBox

Bonjour,

Dans une feuille, j'aimerai qu'une fois la listBox chargé, placé le focus sur un objet précis de la liste.

Voici mon bout de code pour être plus clair :

  For p = 1 To TBrebis(placeBrebis).nbAgneau
            ligne = "    " & TBrebis(placeBrebis).TAgneau(p).noAgneau
            ligne = ligne & "    |   " & TBrebis(placeBrebis).TAgneau(p).sexe
            ligne = ligne & "   |   " & TBrebis(placeBrebis).TAgneau(p).dateNaissance
            ligne = ligne & "   |   " & TBrebis(placeBrebis).TAgneau(p).causeDepart
            ligne = ligne & "   |  " & TBrebis(placeBrebis).TAgneau(p).dateDepart
            If TBrebis(placeBrebis).TAgneau(p).noAgneau = TAjoutAgnelage.TnewAgneau_1(0).noAgneau Then
                bis = p - 1
            End If
            listeAgneau.AddItem (ligne)
    Next p
    

Une fois ceci ma liste remplie de mes jolie moutons, j'aimerai qu'il y est un focus sur l'agneau situé a l'indice " bis " !

listeAgneau.List(bis) .Setfocus ? un truc du genre ?

Merci d'avance



--
Dans tout les tiek's ca chuchotte