Экранная клава

Public Class Form1

    Dim a As Integer

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



    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text &= Button2.Text

        Timer1.Start()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text &= Button3.Text

        Timer1.Start()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text &= Button4.Text

        Timer1.Start()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text &= Button5.Text

        Timer1.Start()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text &= Button6.Text

        Timer1.Start()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text &= Button7.Text

        Timer1.Start()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text &= Button8.Text

        Timer1.Start()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text &= Button9.Text

        Timer1.Start()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text &= Button10.Text

        Timer1.Start()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox1.Text &= Button11.Text

        Timer1.Start()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox1.Text &= Button12.Text

        Timer1.Start()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox1.Text &= Button13.Text

        Timer1.Start()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox1.Text &= Button14.Text

        Timer1.Start()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Clear()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        TextBox1.Text &= "    "
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        TextBox1.Text &= Button17.Text

        Timer1.Start()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text &= Button18.Text

        Timer1.Start()
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        TextBox1.Text &= Button19.Text

        Timer1.Start()
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        TextBox1.Text &= Button20.Text

        Timer1.Start()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        TextBox1.Text &= Button21.Text

        Timer1.Start()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        TextBox1.Text &= Button22.Text

        Timer1.Start()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        TextBox1.Text &= Button23.Text

        Timer1.Start()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        TextBox1.Text &= Button24.Text

        Timer1.Start()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        TextBox1.Text &= Button25.Text

        Timer1.Start()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        TextBox1.Text &= Button26.Text

        Timer1.Start()
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        TextBox1.Text &= Button27.Text

        Timer1.Start()
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        TextBox1.Text &= Button28.Text

        Timer1.Start()
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        TextBox1.Text &= Button29.Text

        Timer1.Start()
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        TextBox1.Clear()
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

        If Button68.Text = "0" Then

            Button31.BackColor = Color.Green

            Button2.Text = "Ё"
            Button17.Text = "Й"
            Button18.Text = "Ц"
            Button19.Text = "У"
            Button20.Text = "К"
            Button21.Text = "Е"
            Button22.Text = "Н"
            Button23.Text = "Г"
            Button24.Text = "Ш"
            Button25.Text = "Щ"
            Button26.Text = "З"
            Button27.Text = "Х"
            Button28.Text = "Ъ"
            Button32.Text = "Ф"
            Button33.Text = "Ы"
            Button34.Text = "В"
            Button35.Text = "А"
            Button36.Text = "П"
            Button37.Text = "Р"
            Button38.Text = "О"
            Button39.Text = "Л"
            Button40.Text = "Д"
            Button41.Text = "Ж"
            Button42.Text = "Э"
            Button45.Text = "Я"
            Button46.Text = "Ч"
            Button47.Text = "С"
            Button48.Text = "М"
            Button49.Text = "И"
            Button50.Text = "Т"
            Button51.Text = "Ь"
            Button52.Text = "Б"
            Button53.Text = "Ю"

            Button68.Text = "1"

        Else

            Button31.BackColor = Color.White

            Button2.Text = "ё"
            Button17.Text = "й"
            Button18.Text = "ц"
            Button19.Text = "у"
            Button20.Text = "к"
            Button21.Text = "е"
            Button22.Text = "н"
            Button23.Text = "г"
            Button24.Text = "ш"
            Button25.Text = "щ"
            Button26.Text = "з"
            Button27.Text = "х"
            Button28.Text = "ъ"
            Button32.Text = "ф"
            Button33.Text = "ы"
            Button34.Text = "в"
            Button35.Text = "а"
            Button36.Text = "п"
            Button37.Text = "р"
            Button38.Text = "о"
            Button39.Text = "л"
            Button40.Text = "д"
            Button41.Text = "ж"
            Button42.Text = "э"
            Button45.Text = "я"
            Button46.Text = "ч"
            Button47.Text = "с"
            Button48.Text = "м"
            Button49.Text = "и"
            Button50.Text = "т"
            Button51.Text = "ь"
            Button52.Text = "б"
            Button53.Text = "ю"

            Button68.Text = "0"

        End If

    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

        TextBox1.Text &= Button32.Text

        Timer1.Start()

    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        TextBox1.Text &= Button33.Text

        Timer1.Start()
    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        TextBox1.Text &= Button34.Text

        Timer1.Start()
    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        TextBox1.Text &= Button35.Text

        Timer1.Start()
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        TextBox1.Text &= Button36.Text

        Timer1.Start()
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        TextBox1.Text &= Button37.Text

        Timer1.Start()
    End Sub

    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        TextBox1.Text &= Button38.Text

        Timer1.Start()
    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        TextBox1.Text &= Button39.Text

        Timer1.Start()
    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
        TextBox1.Text &= Button40.Text

        Timer1.Start()
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        TextBox1.Text &= Button41.Text

        Timer1.Start()
    End Sub

    Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
        TextBox1.Text &= Button42.Text

        Timer1.Start()
    End Sub

    Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click

    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
        '44 56 69
        If Button69.Text = "0" Then

            Button44.BackColor = Color.Green
            Button56.BackColor = Color.Green

            Button2.Text = "Ё"
            Button3.Text = "!"
            Button4.Text = """"
            Button5.Text = "№"
            Button6.Text = ";"
            Button7.Text = "%"
            Button8.Text = ":"
            Button9.Text = "?"
            Button10.Text = "*"
            Button11.Text = "("
            Button12.Text = ")"
            Button13.Text = "_"
            Button14.Text = "+"
            Button17.Text = "Й"
            Button18.Text = "Ц"
            Button19.Text = "У"
            Button20.Text = "К"
            Button21.Text = "Е"
            Button22.Text = "Н"
            Button23.Text = "Г"
            Button24.Text = "Ш"
            Button25.Text = "Щ"
            Button26.Text = "З"
            Button27.Text = "Х"
            Button28.Text = "Ъ"
            Button29.Text = "/"
            Button32.Text = "Ф"
            Button33.Text = "Ы"
            Button34.Text = "В"
            Button35.Text = "А"
            Button36.Text = "П"
            Button37.Text = "Р"
            Button38.Text = "О"
            Button39.Text = "Л"
            Button40.Text = "Д"
            Button41.Text = "Ж"
            Button42.Text = "Э"
            Button45.Text = "Я"
            Button46.Text = "Ч"
            Button47.Text = "С"
            Button48.Text = "М"
            Button49.Text = "И"
            Button50.Text = "Т"
            Button51.Text = "Ь"
            Button52.Text = "Б"
            Button53.Text = "Ю"
            Button54.Text = ","

            Button69.Text = "1"

        Else

            Button44.BackColor = Color.White
            Button56.BackColor = Color.White

            Button2.Text = "ё"
            Button3.Text = "1"
            Button4.Text = "2"
            Button5.Text = "3"
            Button6.Text = "4"
            Button7.Text = "5"
            Button8.Text = "6"
            Button9.Text = "7"
            Button10.Text = "8"
            Button11.Text = "9"
            Button12.Text = "0"
            Button13.Text = "-"
            Button14.Text = "="
            Button17.Text = "й"
            Button18.Text = "ц"
            Button19.Text = "у"
            Button20.Text = "к"
            Button21.Text = "е"
            Button22.Text = "н"
            Button23.Text = "г"
            Button24.Text = "ш"
            Button25.Text = "щ"
            Button26.Text = "з"
            Button27.Text = "х"
            Button28.Text = "ъ"
            Button29.Text = "\"
            Button32.Text = "ф"
            Button33.Text = "ы"
            Button34.Text = "в"
            Button35.Text = "а"
            Button36.Text = "п"
            Button37.Text = "р"
            Button38.Text = "о"
            Button39.Text = "л"
            Button40.Text = "д"
            Button41.Text = "ж"
            Button42.Text = "э"
            Button45.Text = "я"
            Button46.Text = "ч"
            Button47.Text = "с"
            Button48.Text = "м"
            Button49.Text = "и"
            Button50.Text = "т"
            Button51.Text = "ь"
            Button52.Text = "б"
            Button53.Text = "ю"
            Button54.Text = "."

            Button69.Text = "0"

        End If

    End Sub

    Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
        TextBox1.Text &= Button45.Text

        Timer1.Start()
    End Sub

    Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
        TextBox1.Text &= Button46.Text

        Timer1.Start()
    End Sub

    Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click

        TextBox1.Text &= Button47.Text

        Timer1.Start()

    End Sub

    Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click

        TextBox1.Text &= Button48.Text

        Timer1.Start()

    End Sub

    Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
        TextBox1.Text &= Button49.Text

        Timer1.Start()
    End Sub

    Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
        TextBox1.Text &= Button50.Text

        Timer1.Start()
    End Sub

    Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
        TextBox1.Text &= Button51.Text

        Timer1.Start()
    End Sub

    Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
        TextBox1.Text &= Button52.Text

        Timer1.Start()
    End Sub

    Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
        TextBox1.Text &= Button53.Text

        Timer1.Start()
    End Sub

    Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
        TextBox1.Text &= Button54.Text

        Timer1.Start()
    End Sub

    Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click

    End Sub

    Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click

        If Button69.Text = "0" Then

            Button44.BackColor = Color.Green
            Button56.BackColor = Color.Green

            Button2.Text = "Ё"
            Button3.Text = "!"
            Button4.Text = """"
            Button5.Text = "№"
            Button6.Text = ";"
            Button7.Text = "%"
            Button8.Text = ":"
            Button9.Text = "?"
            Button10.Text = "*"
            Button11.Text = "("
            Button12.Text = ")"
            Button13.Text = "_"
            Button14.Text = "+"
            Button17.Text = "Й"
            Button18.Text = "Ц"
            Button19.Text = "У"
            Button20.Text = "К"
            Button21.Text = "Е"
            Button22.Text = "Н"
            Button23.Text = "Г"
            Button24.Text = "Ш"
            Button25.Text = "Щ"
            Button26.Text = "З"
            Button27.Text = "Х"
            Button28.Text = "Ъ"
            Button29.Text = "/"
            Button32.Text = "Ф"
            Button33.Text = "Ы"
            Button34.Text = "В"
            Button35.Text = "А"
            Button36.Text = "П"
            Button37.Text = "Р"
            Button38.Text = "О"
            Button39.Text = "Л"
            Button40.Text = "Д"
            Button41.Text = "Ж"
            Button42.Text = "Э"
            Button45.Text = "Я"
            Button46.Text = "Ч"
            Button47.Text = "С"
            Button48.Text = "М"
            Button49.Text = "И"
            Button50.Text = "Т"
            Button51.Text = "Ь"
            Button52.Text = "Б"
            Button53.Text = "Ю"
            Button54.Text = ","

            Button69.Text = "1"

        Else

            Button44.BackColor = Color.White
            Button56.BackColor = Color.White

            Button2.Text = "ё"
            Button3.Text = "1"
            Button4.Text = "2"
            Button5.Text = "3"
            Button6.Text = "4"
            Button7.Text = "5"
            Button8.Text = "6"
            Button9.Text = "7"
            Button10.Text = "8"
            Button11.Text = "9"
            Button12.Text = "0"
            Button13.Text = "-"
            Button14.Text = "="
            Button17.Text = "й"
            Button18.Text = "ц"
            Button19.Text = "у"
            Button20.Text = "к"
            Button21.Text = "е"
            Button22.Text = "н"
            Button23.Text = "г"
            Button24.Text = "ш"
            Button25.Text = "щ"
            Button26.Text = "з"
            Button27.Text = "х"
            Button28.Text = "ъ"
            Button29.Text = "\"
            Button32.Text = "ф"
            Button33.Text = "ы"
            Button34.Text = "в"
            Button35.Text = "а"
            Button36.Text = "п"
            Button37.Text = "р"
            Button38.Text = "о"
            Button39.Text = "л"
            Button40.Text = "д"
            Button41.Text = "ж"
            Button42.Text = "э"
            Button45.Text = "я"
            Button46.Text = "ч"
            Button47.Text = "с"
            Button48.Text = "м"
            Button49.Text = "и"
            Button50.Text = "т"
            Button51.Text = "ь"
            Button52.Text = "б"
            Button53.Text = "ю"
            Button54.Text = "."

            Button69.Text = "0"

        End If

    End Sub

    Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click



    End Sub

    Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click

    End Sub

    Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click

        If Button44.BackColor = Color.Green Or Button56.BackColor = Color.Green Then

            If Button70.Text = "0" Then

                Button59.BackColor = Color.Green
                Button61.BackColor = Color.Green

                Button2.Text = "`"
                Button3.Text = "1"
                Button4.Text = "2"
                Button5.Text = "3"
                Button6.Text = "4"
                Button7.Text = "5"
                Button8.Text = "6"
                Button9.Text = "7"
                Button10.Text = "8"
                Button11.Text = "9"
                Button12.Text = "0"
                Button13.Text = "-"
                Button14.Text = "="
                Button17.Text = "q"
                Button18.Text = "w"
                Button19.Text = "e"
                Button20.Text = "r"
                Button21.Text = "t"
                Button22.Text = "y"
                Button23.Text = "u"
                Button24.Text = "i"
                Button25.Text = "o"
                Button26.Text = "p"
                Button27.Text = "["
                Button28.Text = "]"
                Button29.Text = "\"
                Button32.Text = "a"
                Button33.Text = "s"
                Button34.Text = "d"
                Button35.Text = "f"
                Button36.Text = "g"
                Button37.Text = "h"
                Button38.Text = "j"
                Button39.Text = "k"
                Button40.Text = "l"
                Button41.Text = ";"
                Button42.Text = "'"
                Button45.Text = "z"
                Button46.Text = "x"
                Button47.Text = "c"
                Button48.Text = "v"
                Button49.Text = "b"
                Button50.Text = "n"
                Button51.Text = "m"
                Button52.Text = ","
                Button53.Text = "."
                Button54.Text = "/"

            End If

        End If

    End Sub

    Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click
        TextBox1.Text &= " "
    End Sub

    Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click



    End Sub

    Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click

    End Sub

    Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click



    End Sub

    Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click

    End Sub

    Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click

    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click

    End Sub

    Private Sub Button67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button67.Click

        If Button72.Text = "0" Then

            Button67.BackColor = Color.Green

            Button3.Text = "F1"
            Button4.Text = "F2"
            Button5.Text = "F3"
            Button6.Text = "F4"
            Button7.Text = "F5"
            Button8.Text = "F6"
            Button9.Text = "F7"
            Button10.Text = "F8"
            Button11.Text = "F9"
            Button12.Text = "F10"
            Button13.Text = "F11"
            Button14.Text = "F12"

            Button72.Text = "1"

        Else

            Button67.BackColor = Color.White

            Button3.Text = "1"
            Button4.Text = "2"
            Button5.Text = "3"
            Button6.Text = "4"
            Button7.Text = "5"
            Button8.Text = "6"
            Button9.Text = "7"
            Button10.Text = "8"
            Button11.Text = "9"
            Button12.Text = "0"
            Button13.Text = "-"
            Button14.Text = "="

            Button72.Text = "0"

        End If

    End Sub

    Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click

    End Sub

    Private Sub Button69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Button44.BackColor = Color.Green Or Button56.BackColor = Color.Green Then

            Button44.BackColor = Color.White
            Button56.BackColor = Color.White

            Button2.Text = "ё"
            Button3.Text = "1"
            Button4.Text = "2"
            Button5.Text = "3"
            Button6.Text = "4"
            Button7.Text = "5"
            Button8.Text = "6"
            Button9.Text = "7"
            Button10.Text = "8"
            Button11.Text = "9"
            Button12.Text = "0"
            Button13.Text = "-"
            Button14.Text = "="
            Button17.Text = "й"
            Button18.Text = "ц"
            Button19.Text = "у"
            Button20.Text = "к"
            Button21.Text = "е"
            Button22.Text = "н"
            Button23.Text = "г"
            Button24.Text = "ш"
            Button25.Text = "щ"
            Button26.Text = "з"
            Button27.Text = "х"
            Button28.Text = "ъ"
            Button29.Text = "\"
            Button32.Text = "ф"
            Button33.Text = "ы"
            Button34.Text = "в"
            Button35.Text = "а"
            Button36.Text = "п"
            Button37.Text = "р"
            Button38.Text = "о"
            Button39.Text = "л"
            Button40.Text = "д"
            Button41.Text = "ж"
            Button42.Text = "э"
            Button45.Text = "я"
            Button46.Text = "ч"
            Button47.Text = "с"
            Button48.Text = "м"
            Button49.Text = "и"
            Button50.Text = "т"
            Button51.Text = "ь"
            Button52.Text = "б"
            Button53.Text = "ю"
            Button54.Text = "."

        End If

        Button69.Text = "0"

        Timer1.Stop()

    End Sub
End Class