مرحبا
ممكن اختصار للكود وشكرا 
كود :
Dim Sot As String
Sot = Label28.Text
For i = 1 To 26
Dim Src = "Label" & i
Select Case i
Case 1
Sot = Sot.Replace(Src, Label1.Text)
Case 2
Sot = Sot.Replace(Src, Label2.Text)
Case 3
Sot = Sot.Replace(Src, Label3.Text)
Case 4
Sot = Sot.Replace(Src, Label4.Text)
Case 5
Sot = Sot.Replace(Src, Label5.Text)
Case 6
Sot = Sot.Replace(Src, Label6.Text)
Case 7
Sot = Sot.Replace(Src, Label7.Text)
Case 8
Sot = Sot.Replace(Src, Label8.Text)
Case 9
Sot = Sot.Replace(Src, Label9.Text)
Case 10
Sot = Sot.Replace(Src, Label10.Text)
Case 11
Sot = Sot.Replace(Src, Label11.Text)
Case 12
Sot = Sot.Replace(Src, Label12.Text)
Case 13
Sot = Sot.Replace(Src, Label13.Text)
Case 14
Sot = Sot.Replace(Src, Label14.Text)
Case 15
Sot = Sot.Replace(Src, Label15.Text)
Case 16
Sot = Sot.Replace(Src, Label16.Text)
Case 17
Sot = Sot.Replace(Src, Label17.Text)
Case 18
Sot = Sot.Replace(Src, Label18.Text)
Case 19
Sot = Sot.Replace(Src, Label19.Text)
Case 20
Sot = Sot.Replace(Src, Label20.Text)
Case 21
Sot = Sot.Replace(Src, Label21.Text)
Case 22
Sot = Sot.Replace(Src, Label22.Text)
Case 23
Sot = Sot.Replace(Src, Label23.Text)
Case 24
Sot = Sot.Replace(Src, Label24.Text)
Case 25
Sot = Sot.Replace(Src, Label25.Text)
End Select
Next
Label28.Text = Sotهم يسرقون والقانون كتب لنا...
