• Home
 · 
• Miscellaneous
 · 
• Reverses a word/sentence and copies it to your clipboard, a useless application to be honest...

Reverses a word/sentence and copies it to your clipboard, a useless application to be honest...

Reverses a word/sentence and copies it to your clipboard, a useless application to be honest...

API Declarations


Dim ReverseSent(500) As String
Dim ReverseDone(500) As String
Dim RevDone As String
Dim iRevCount As Integer
Dim iRevDone As Integer



Rate Reverses a word/sentence and copies it to your clipboard, a useless application to be honest...

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        TxtOut.Clear()
        iRevLen = Len(TxtRev.Text)
        iRevCount = 501
        For iCount = 1 To iRevLen
            ReverseSent(iCount) = Mid(TxtRev.Text, iCount, 1)
        Next
        For iCount = 1 To iRevLen
            iRevCount = iRevCount - 1
            ReverseDone(iRevCount) = ReverseSent(iCount)
        Next
        iRevDone = (501 - iRevLen)
        For iCount = iRevDone To 500
            RevDone = ReverseDone(iCount)
            TxtOut.AppendText(RevDone)
        Next
        Clipboard.SetText(TxtOut.Text)
    End Sub