.Net Coding Challenge #1

[Resistance]

Awesome, I am done with it. Not the best GUI at all. Didn't even work on it. But the functioning works, only one word at a time can be translated. Working on fixing that right now...

EDIT: NVM, ask someone who doesn't have a life to code such a thing. Single words are good enough, place them together and your fine. I don't know how google translate does it.

HERE IS MY RELEASE:

Spoiler (Click to View)

Download Link:

Code:

http://www.mediafire.com/?1a98md1h0dduioa

Screeney:

Source (Entirely by me, me only. As usual.):

Code:

Public Class Form1
    Dim TextR As String = " "
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = Nothing Then Return
        If TextBox1.Text.EndsWith("a") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.EndsWith("e") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.EndsWith("i") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.EndsWith("o") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.EndsWith("u") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.EndsWith("y") Then
            TextBox2.Text = (TextBox1.Text + "way")

        End If
        If TextBox1.Text.StartsWith("b") Then

            TextBox2.Text = TextBox1.Text.Replace("b", "")
            TextBox2.AppendText("bay")
        End If
        If TextBox1.Text.StartsWith("g") Then

            TextBox2.Text = TextBox1.Text.Replace("g", "")
            TextBox2.AppendText("gay")
        End If

        If TextBox1.Text.StartsWith("c") Then

            TextBox2.Text = TextBox1.Text.Replace("c", "")
            TextBox2.AppendText("cay")
        End If
        If TextBox1.Text.StartsWith("d") Then

            TextBox2.Text = TextBox1.Text.Replace("d", "")
            TextBox2.AppendText("day")
        End If
        If TextBox1.Text.StartsWith("f") Then

            TextBox2.Text = TextBox1.Text.Replace("f", "")
            TextBox2.AppendText("fay")
        End If
        If TextBox1.Text.StartsWith("j") Then

            TextBox2.Text = TextBox1.Text.Replace("j", "")
            TextBox2.AppendText("jay")
        End If
        If TextBox1.Text.StartsWith("h") Then

            TextBox2.Text = TextBox1.Text.Replace("h", "")
            TextBox2.AppendText("hay")
        End If
        If TextBox1.Text.StartsWith("k") Then

            TextBox2.Text = TextBox1.Text.Replace("k", "")
            TextBox2.AppendText("kay")
        End If
        If TextBox1.Text.StartsWith("l") Then

            TextBox2.Text = TextBox1.Text.Replace("l", "")
            TextBox2.AppendText("lay")
        End If
        If TextBox1.Text.StartsWith("m") Then

            TextBox2.Text = TextBox1.Text.Replace("m", "")
            TextBox2.AppendText("may")
        End If
        
            
                If TextBox1.Text.StartsWith("q") Then

                    TextBox2.Text = TextBox1.Text.Replace("q", "")
                    TextBox2.AppendText("qay")
                End If
                If TextBox1.Text.StartsWith("r") Then

                    TextBox2.Text = TextBox1.Text.Replace("r", "")
                    TextBox2.AppendText("ray")
                End If
                If TextBox1.Text.StartsWith("s") Then

                    TextBox2.Text = TextBox1.Text.Replace("s", "")
                    TextBox2.AppendText("say")
                End If
                If TextBox1.Text.StartsWith("t") Then

                    TextBox2.Text = TextBox1.Text.Replace("t", "")
                    TextBox2.AppendText("tay")
                End If
                If TextBox1.Text.StartsWith("v") Then

                    TextBox2.Text = TextBox1.Text.Replace("v", "")
                    TextBox2.AppendText("vay")
                End If
                If TextBox1.Text.StartsWith("w") Then

                    TextBox2.Text = TextBox1.Text.Replace("w", "")
                    TextBox2.AppendText("way")
                End If
                
                
        If TextBox1.Text.StartsWith("p") Then

            TextBox2.Text = TextBox1.Text.Replace("p", "")
            TextBox2.AppendText("pay")
        End If
        If TextBox1.Text.StartsWith("n") Then

            TextBox2.Text = TextBox1.Text.Replace("n", "")
            TextBox2.AppendText("nay")
        End If
        If TextBox1.Text.StartsWith("x") Then

            TextBox2.Text = TextBox1.Text.Replace("x", "")
            TextBox2.AppendText("xay")
        End If
        If TextBox1.Text.StartsWith("z") Then

            TextBox2.Text = TextBox1.Text.Replace("z", "")
            TextBox2.AppendText("zay")
        End If
        If TextBox1.Text.StartsWith("y") Then

            TextBox2.Text = TextBox1.Text.Replace("y", "")
            TextBox2.AppendText("yay")
        End If
    End Sub

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

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("http://www.supportforums.net/member.php?action=profile&uid=4502")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim theText As String = TextBox1.Text
        Dim Letter As String

        For x As Integer = 0 To TextBox1.Text.Length - 1
            Letter = TextBox1.Text.Substring(x, 1)
            If TextR.Contains(Letter) Then
                theText = theText.Replace(Letter, String.Empty)
            End If
        Next
        TextBox1.Text = theText
        TextBox2.Select(TextBox1.Text.Length, 0)
    End Sub
End Class

I hope I win, if no one submits full version. This is kind of half-ass, but the full would be way too time consuming to code. What do I win anyways?