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,very good" Case "пока" b = "bay" Case Else b = " что-то не найду такого словечка " End Select TextBox1.Text = a TextBox1.Text = b End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub