[saidhamed]

(04-04-22, 04:23 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           MyStr += aa(i).ToString()

           If Mylen > i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

اخى الفاضل هذا ما اريده بارك الله فيك وزادك علما وحفظك من كل سوء لكن هناك شى بسيط اخى الغالى
الكود مثلا يحول ا ب ج د ه و ز  الى  ا ز ب و ج ه د  فقط اريد اخى تقديم الحرف الاخير على الاول ليكون ز ا و ب ه ج د

واكون شاكر لك فتح الله عليك  وزادك علما اخى الفاضل