[سامي محمد]

فعلا عملية الاستبدال غير واضحة 


هذا الكود

كود :

Dim Src = "Label" & i
 Sot = Sot.Replace(Src, Label1.Text)

مثل هذه تماما

كود :

 Sot = Sot.Replace(Label1.Text, Label1.Text)

استبدل : محمد بـ محمد ؟؟؟؟

---------------------
لكن يمكنك ايضا الاستفاده من هذه الطريقة ان تم تصحيح عملية الاستبدال

كود :

 Dim Sot As String
        Sot = Label28.Text
        Dim Lbl As Label
        For x As Integer = 1 To 26
            Lbl = CType(Controls("Label" & x), Label)
            Dim Src As String = Lbl.Text
            Sot = Sot.Replace(Src, Src)
        Next