For i As Integer = 0 To chek1.CheckedItems.Count - 1
alors à tout hasard on peut tenter un....
For i As Integer = 0 To listbox7.Items.Count - 1 messagebox.show listbox7.Items(i).ToString
pas tester mais l'idée doit s'en rapprocher....
<hr size="2" width="100%" />Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp