[beso00]

(10-02-22, 09:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
الحمد لله رب العالمين الذي يوفقني دائما وأبدا
فعلا الكود يحتاج الى صفاء في الذهن والتوكل على الله
تفضل اخي الكريم فقظ دعوة منك ان أشفى من مرض السكر هذا

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Dim Lst As New ListBox()
       Lst.Items.Clear()
       Dim kk As Integer = 0

       For i As Integer = 0 To ListBox1.Items.Count - 1
           If Lst.Items.Count > 0 Then

               If Lst.Items(Lst.Items.Count - 1).ToString = ListBox1.Items(i).ToString Then
                   kk += 1
               Else
                   If kk > 1 Then
                       Lst.Items(Lst.Items.Count - 1) &= "/" & kk
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   Else
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   End If
               End If
           Else
               kk = 0
               Lst.Items.Add(ListBox1.Items(i))
               kk += 1
           End If
       Next
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(Lst.Items.Cast(Of String)().ToArray)
   End Sub

ما شاء الله عليك 
الكود 100% صحيح الله يعطيك العافيه ويشافيك ويعافيك ويبارك فيك