mini переводчик на VB

Вид:)





Если кому то что то нужно объяснить спрашивайте .:)

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As String
        a = TextBox1.Text
        b = TextBox1.Text
        a = LCase(a)
        Select Case a
            Case "pen"
                b = "ручка"
            Case "table"
                b = "стол"
            Case "application"
                b = "приклодная программа"
            Case "debug"
                b = "отлаживать"
            Case "data"
                b = "данные, информации"
            Case "ручка"
                b = "pen"
            Case "hellou"
                b = "привет"
            Case "привет"
                b = "hellou"
            Case "отлично"
                b = "nice,cool"
            Case "пока"
                b = "bay"
            Case Else
                b = " что-то не найду такого словечка "

        End Select
        TextBox1.Text = a
        TextBox1.Text = b
    End Sub
End Class