[asemshahen5]

بصراحة انا لم افهم ما تريد من النتيجة اختصار الكود ببساطة :

PHP كود :

   Sub LoopLabel()
        Dim Sot As String
        Sot = Label28.Text
        Dim i As Integer = 0
        For Each Lbl As Control In Me.Controls
            Dim Src = "Label" & i
            If TypeOf Lbl Is Label Then
                If Not Lbl.Name = "Label26" Or Not Lbl.Name = "Label27" Then
                    Select Case i
                        Case i
                            Sot = Sot.Replace(Src, Lbl.Text)
                    End Select
                End If
            End If
            i += 1
        Next
        Label29.Text = Sot
    End Sub 


لكن الافضل وضع مثال مع توضيح المطلوب .