كود عكس اتجاه النص

ضع الكود في الفورم

Public Function reversestring(revstr As String) As String

Dim doreverse As Long

reversestring = ""

For doreverse = Len(revstr) To 1 Step -1

reversestring = reversestring & Mid$(revstr, doreverse, 1)

Next

End Function

Private Sub Command1_Click()

Dim strResult As String

strResult = reversestring(Text1.Text)

Text2.Text = strResult

End Sub