Переводчик

Public Class Form1
 
    Private Property xXx As String
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        xXx = InputBox("Как твоё имя ?", "Меню")
        Label3.Text = "Здравствуй " & xXx
        Label1.Text = "bus"
        Label2.Text = ""
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer
        For I = Me.ProgressBar1.Minimum To Me.ProgressBar1.Maximum
            If TextBox1.Text = "" Then
                Label2.Text = "Нет текста"
                Label3.Text = xXx & "забыл ввести перевод"
            Else
                Label2.Text = ""
            End If
            If (TextBox1.Text = "автобус") = (Label1.Text = "bus") Then
                Label1.Text = "backpack"
            ElseIf (TextBox1.Text = "автобус") <> (Label1.Text = "bus") Then
                Label3.Text = "Неверно " & xXx
                Label1.Text = ",запомни bus"
            End If
           
            If (Label1.Text = "рюкзак") = (TextBox1.Text = "backpack") Then
                Label1.Text = "leg"
            ElseIf (Label1.Text = "рюкзак") <> (TextBox1.Text = "backpack") Then
                Label1.Text = "Неправильно,верно backpack"
            End If
            Me.ProgressBar1.PerformStep()
        Next
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dict As New Dictionary(Of String, String)
        dict.Add("bus", "автобус")
        dict.Add("backpack", "рюкзак")
        dict.Add("leg", "нога")
        ProgressBar1.Step = ProgressBar1.Maximum / dict.Count
        For i = 0 To dict.Count - 1
            If InputBox(dict.Keys(i), "Введи перевод") = dict.Values(i) Then
                Label2.Text = "Верно"
            Else
                Label2.Text = "Неверно!"
            End If
            Me.ProgressBar1.PerformStep()
        Next
    End Sub