monLabel.Caption = maListView.ListItems(1).SubItem(1)ou ressemblant.
If Combo1.Text = "fille" Then ' On ajoute l'objet dans la liste en indiquant la smallicon que l'on veux à la fin. ListView1.ListItems.Add(, , TxtAjtObj.Text, , "thumbup").SubItems(1) "fille" 'nowdate et neure ' Sinon, si c'est la deuxième icone de choisis ElseIf Combo1.Text = "garçon" Then 'OptSelThmDw.Value Then ' On ajoute l'objet dans la liste en indiquant la smallicon que l'on veux à la fin. ListView1.ListItems.Add(, , TxtAjtObj.Text, , "thumbdown").SubItems(1) "garçon" 'nowdate et neure End If