Text Flip [TuT]

[SouR'D]

Ok Many people has been asking for this source so i decided to share.

Ok so Lets Begin.

1.First of you Will Need Two Text Boxes.

2. Under Public Class Form1 paste this code

Code:

Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
    V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

3. Now Double Click On Textbox1 and enter this code

Code:

Dim str As String, Newstr As String = Nothing
        str = TextBox1.Text
        For Each StrText As String In str
            Select Case True
                Case StrText = "b"
                    StrText = "p"
                Case StrText = "p"
                    StrText = "b"
                Case StrText = "q"
                    StrText = "d"
                Case StrText = "d"
                    StrText = "q"
                Case StrText = "u"
                    StrText = "n"
                Case True
                    For I = 0 To X.Length - 1
                        StrText = StrText.Replace(V.ElementAt(I), _
                        X.ElementAt(I))
                    Next
            End Select
            Newstr &= StrText
        Next
        TextBox2.Text = Newstr
        TextBox2.Text = StrReverse(TextBox2.Text)

* Note: YOu do not Need any buttons for this Only Textboxes (Unless you would like to Put this In your Project you can do anything You want with the Source)
* Make Sure You give Credits To me If you do use this.
* If you so happen Not to Get The source I posted Above you can just copy and paste this Into or as I should say Onto your Project.

'Give Credits To Optiikzz If you use this'
'TechnicForums.com use Optiikzz As Referrer


Public Class Form1
Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String, Newstr As String = Nothing
str = TextBox1.Text
For Each StrText As String In str
Select Case True
Case StrText = "b"
StrText = "p"
Case StrText = "p"
StrText = "b"
Case StrText = "q"
StrText = "d"
Case StrText = "d"
StrText = "q"
Case StrText = "u"
StrText = "n"
Case True
For I = 0 To X.Length - 1
StrText = StrText.Replace(V.ElementAt(I), _
X.ElementAt(I))
Next
End Select
Newstr &= StrText
Next
TextBox2.Text = Newstr
TextBox2.Text = StrReverse(TextBox2.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class