مشكلة في كود ال round robin

السلاام عليكم والرحمة

عندي مشكله ب أكواد الويتنق تايم بألقرثم round robin

هذا شكل البرنامج ب run

التقسيم يقسمه صح والوقت يوزعه صح بس يوم يحسب الويتنق تايم يحسبه غلط

ممكن احد يرشدني لموضع الغلط وأكون شاكره

هذا كود الويتنق تايم مآعرفت وين مكـآن الغلط

            y = 0
            For i = 0 To co - 1
                For si = 0 To cuont - 1
                    x1 = StrComp(sm(si, 1), ListBox1.Items(i))
                    If x1 = 0 Then
                        x2 = x2 + Val(sm(si, 0))
                    End If
                    y += si + 1
                    x1 = StrComp(sm(si, 1), ListBox1.Items(i))
                    If x1 = 0 Then
                        x2 = x2 + Val(sm(si, 0))
                        y += 1
                        x1 = StrComp(sm(si + 1, 1), ListBox1.Items(i))
                        If x1 = 0 Then
                            x2 = x2
                        End If
                    End If

                Next
                avr(i) = x2
            Next



            For i = 0 To cuont - 1

                x2 = sm(i, 0)
                Label1.Text = Label1.Text & "      " & x2
                Label2.Text = Label2.Text & "      " & sm(i, 1)
                Label3.Text = Label3.Text & "      " & avr(i)
            Next

وبسس يعطيكم الف عافيه سسلفا