30-09-12, 01:13 AM
يا اخي هدا هو الكود
Dim i As Object
Dim a0 As Object
Dim b0 As String
TextBox3.Text = ""
For i = 1 To Len(textbox2.Text)
a0 = Mid(textbox2.Text, i, 1)
TextBox3.Text = TextBox3.Text & b0
Next i
Dim i As Object
Dim a0 As Object
Dim b0 As String
TextBox3.Text = ""
For i = 1 To Len(textbox2.Text)
a0 = Mid(textbox2.Text, i, 1)
TextBox3.Text = TextBox3.Text & b0
Next i
