[aljzazy]

جرب هيك

كود :

Dim k As Integer
       For i As Integer = 0 To MainPage.ListBox1.Items.Count - 1
           k +=   1
           txt += MainPage.ListBox1.Items(i)
           If k < MainPage.ListBox1.Items.Count - 1 Then
               txt += " , "
           ElseIf k = MainPage.ListBox1.Items.Count - 1 Then
               txt += " , " + (i + 1).ToString() + ", " + (i + 2).ToString() + "})" + Environment.NewLine
           End If
       Next