клава

Public Class Form1

    Dim a As Double
    Dim q As Integer ' CapsLock
    Dim w As Integer ' Shift
    Dim r As Integer ' Alt
    Dim t As Integer ' Ctrl
    Dim y As Integer ' Fn
    Dim u As Integer ' F2
    Dim i As Integer ' = на нумпаде
    Dim o As Integer ' NumLock
    Dim p As String ' Ctrl + C


    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 'Esc

        Close()

    End Sub

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

        TextBox1.Text &= Button2.Text

        Button2.BackColor = Color.Red

        Timer1.Start()

    End Sub

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

        If Button67.BackColor = Color.Green Then

            Button3.BackColor = Color.Green

            MessageBox.Show("Экранная клавиатура by Ларионов Сергей 13ПК", "Справка", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button3.Text

            Button3.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 'F2, 2

        If Button67.BackColor = Color.Green Then

            If u = 0 Then

                Me.Width = 1090

                TextBox1.Width = 1064

                u = 1

                Button67.BackColor = Color.White

                y = 0

                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 = "="

                Button4.BackColor = Color.Green

            Else

                Me.Width = 865

                TextBox1.Width = 837

                u = 0

                Button67.BackColor = Color.White

                y = 0

                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 = "="

                Button4.BackColor = Color.White

            End If

        Else

            TextBox1.Text &= Button4.Text

            Button4.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 'F3, 3

        If Button67.BackColor = Color.Green Then

            Button5.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button5.Text

            Button5.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 'F4, 4

        If Button67.BackColor = Color.Green Then

            Button6.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button6.Text

            Button6.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click 'F5, 5

        If Button67.BackColor = Color.Green Then

            Button7.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button7.Text

            Button7.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click 'F6, 6

        If Button67.BackColor = Color.Green Then

            Button8.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button8.Text

            Button8.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click 'F7, 7

        If Button67.BackColor = Color.Green Then

            Button9.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button9.Text

            Button9.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click 'F8, 8

        If Button67.BackColor = Color.Green Then

            Button10.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button10.Text

            Button10.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click 'F9, 9

        If Button67.BackColor = Color.Green Then

            Button11.BackColor = Color.Green

            If TextBox1.Text = "Превет" Then

                TextBox1.Text = "Привет"

            ElseIf TextBox1.Text = "превет" Then

                TextBox1.Text = "привет"

            ElseIf TextBox1.Text = "Превед" Then

                TextBox1.Text = "Привет"

            ElseIf TextBox1.Text = "Привед" Then

                TextBox1.Text = "Привет"

            ElseIf TextBox1.Text = "привед" Then

                TextBox1.Text = "привет"

            End If

            If TextBox1.Text = "Как дила" Then

                TextBox1.Text = "Как дела"

            End If

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button11.Text

            Button11.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click 'F10, 0

        If Button67.BackColor = Color.Green Then

            Button12.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button12.Text

            Button12.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click 'F11, -

        If Button67.BackColor = Color.Green Then

            Button13.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button13.Text

            Button13.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click 'F12, =

        If Button67.BackColor = Color.Green Then

            Button14.BackColor = Color.Green

            Button4.Text = "2"

        Else

            TextBox1.Text &= Button14.Text

            Button14.BackColor = Color.Red

        End If

        Timer1.Start()

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click ' backspace

        TextBox1.Clear()

        Button15.BackColor = Color.Green

        Timer1.Start()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text &= "    "

        Button16.BackColor = Color.Green

        Timer1.Start()

    End Sub

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

        Button17.BackColor = Color.Red

        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

        Button18.BackColor = Color.Red

        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

        Button19.BackColor = Color.Red

        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

        Button20.BackColor = Color.Red

        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

        Button21.BackColor = Color.Red

        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

        Button22.BackColor = Color.Red

        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

        Button23.BackColor = Color.Red

        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

        Button24.BackColor = Color.Red

        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

        Button25.BackColor = Color.Red

        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

        Button26.BackColor = Color.Red

        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

        Button27.BackColor = Color.Red

        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

        Button28.BackColor = Color.Red

        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

        Button29.BackColor = Color.Red

        Timer1.Start()
    End Sub

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

        Button30.BackColor = Color.Green
    End Sub

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

        If r = 0 Then

            If q = 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 = "Ю"

                q = 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 = "ю"

                q = 0

            End If

        ElseIf r = 1 Then

            If q = 0 Then

                Button31.BackColor = Color.Green

                Button2.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 = "]"
                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 = "."

                q = 1

            Else

                Button31.BackColor = Color.White

                Button2.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 = "]"
                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 = "."

                q = 0

            End If

        End If

    End Sub

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

        If Button57.BackColor = Color.Green And Button63.BackColor = Color.Green Then

            Button32.BackColor = Color.Green

            TextBox1.BackColor = Color.SkyBlue

            Button57.BackColor = Color.White
            Button63.BackColor = Color.White

            t = 0

        Else

            TextBox1.Text &= Button32.Text

            Button32.BackColor = Color.Red

        End If

        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

        Button33.BackColor = Color.Red

        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

        Button34.BackColor = Color.Red

        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

        Button35.BackColor = Color.Red

        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

        Button36.BackColor = Color.Red

        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

        Button37.BackColor = Color.Red

        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

        Button38.BackColor = Color.Red

        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

        Button39.BackColor = Color.Red

        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

        Button40.BackColor = Color.Red

        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

        Button41.BackColor = Color.Red

        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

        Button42.BackColor = Color.Red

        Timer1.Start()
    End Sub

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

        Button43.BackColor = Color.Green

        Timer1.Start()

    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click 'l. Shift

        If r = 0 Then

            '''

            If w = 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 = ","

                w = 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 = "."

                w = 0

            End If

            '''

        ElseIf r = 1 Then

            '''

            If w = 1 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 = "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 = "?"

                w = 0

            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 = "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 = "/"

                w = 1

            End If

            '''

        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

        Button45.BackColor = Color.Red

        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

        Button46.BackColor = Color.Red

        Timer1.Start()
    End Sub

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

        If TextBox1.BackColor = Color.SkyBlue Then

            Button47.BackColor = Color.Green

            Button57.BackColor = Color.White
            Button63.BackColor = Color.White

            t = 0

            p = TextBox1.Text

        Else

            TextBox1.Text &= Button47.Text

            Button47.BackColor = Color.Red

        End If

        TextBox1.BackColor = Color.White

        Timer1.Start()

    End Sub

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

        If Button57.BackColor = Color.Green And Button63.BackColor = Color.Green Then

            Button48.BackColor = Color.Green

            TextBox1.Text &= p

            Button57.BackColor = Color.White
            Button63.BackColor = Color.White

            t = 0

        Else

            TextBox1.Text &= Button48.Text

            Button48.BackColor = Color.Red

        End If

        Button57.BackColor = Color.White
        Button63.BackColor = Color.White

        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

        Button49.BackColor = Color.Red

        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

        Button50.BackColor = Color.Red

        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

        Button51.BackColor = Color.Red

        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

        Button52.BackColor = Color.Red

        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

        Button53.BackColor = Color.Red

        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

        Button54.BackColor = Color.Red

        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 'r. shift

        If r = 0 Then

            '''

            If w = 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 = ","

                w = 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 = "."

                w = 0

            End If

            '''

        ElseIf r = 1 Then

            '''

            If w = 1 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 = "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 = "?"

                w = 0

            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 = "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 = "/"

                w = 1

            End If

            '''

        End If

    End Sub

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

        If t = 0 Then

            Button57.BackColor = Color.Green
            Button63.BackColor = Color.Green

            t = 1

        Else

            Button57.BackColor = Color.White
            Button63.BackColor = Color.White

            t = 0

        End If

    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 'l. alt

        Button44.BackColor = Color.White
        Button56.BackColor = Color.White
        Button59.BackColor = Color.Green
        Button61.BackColor = Color.Green

        If w = 1 Then

            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 = "/"

            r = 1

        Else

            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 = "."

            r = 0

        End If

        Timer1.Start()

    End Sub

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

        Button60.BackColor = Color.Green

        Timer1.Start()
    End Sub

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

        Button44.BackColor = Color.White
        Button56.BackColor = Color.White
        Button59.BackColor = Color.Green
        Button61.BackColor = Color.Green

        If w = 1 Then

            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 = "/"

            r = 1

        Else

            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 = "."

            r = 0

        End If

        Timer1.Start()

    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 'r. ctrl

        If t = 0 Then

            Button57.BackColor = Color.Green
            Button63.BackColor = Color.Green

            t = 1

        Else

            Button57.BackColor = Color.White
            Button63.BackColor = Color.White

            t = 0

        End If

    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 'Fn

        If y = 0 Then

            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"

            y = 1

            Button67.BackColor = Color.Green

        Else

            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 = "="

            y = 0

            Button67.BackColor = Color.White

        End If

    End Sub

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

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

        If u = 1 Then

            Button74.BackColor = Color.White
            Button75.BackColor = Color.White
            Button76.BackColor = Color.White
            Button77.BackColor = Color.White
            Button78.BackColor = Color.White
            Button79.BackColor = Color.White
            Button80.BackColor = Color.White
            Button81.BackColor = Color.White
            Button82.BackColor = Color.White
            Button83.BackColor = Color.White
            Button84.BackColor = Color.White
            Button85.BackColor = Color.White
            Button86.BackColor = Color.White
            Button87.BackColor = Color.White
            Button88.BackColor = Color.White
            Button89.BackColor = Color.White

        Else

            If Button67.BackColor = Color.Green Then

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

                y = 0

                Button67.BackColor = Color.White

            Else

                If w = 1 And r = 0 Then

                    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 = "."

                    w = 0

                ElseIf w = 0 And r = 1 Then

                    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 = "/"

                    w = 1

                End If

            End If

        End If

        Button2.BackColor = Color.White
        Button3.BackColor = Color.White
        Button4.BackColor = Color.White
        Button5.BackColor = Color.White
        Button6.BackColor = Color.White
        Button7.BackColor = Color.White
        Button8.BackColor = Color.White
        Button9.BackColor = Color.White
        Button10.BackColor = Color.White
        Button11.BackColor = Color.White
        Button12.BackColor = Color.White
        Button13.BackColor = Color.White
        Button14.BackColor = Color.White
        Button15.BackColor = Color.White
        Button16.BackColor = Color.White
        Button17.BackColor = Color.White
        Button18.BackColor = Color.White
        Button19.BackColor = Color.White
        Button20.BackColor = Color.White
        Button21.BackColor = Color.White
        Button22.BackColor = Color.White
        Button23.BackColor = Color.White
        Button24.BackColor = Color.White
        Button25.BackColor = Color.White
        Button26.BackColor = Color.White
        Button27.BackColor = Color.White
        Button28.BackColor = Color.White
        Button29.BackColor = Color.White
        Button30.BackColor = Color.White
        Button32.BackColor = Color.White
        Button33.BackColor = Color.White
        Button34.BackColor = Color.White
        Button35.BackColor = Color.White
        Button36.BackColor = Color.White
        Button37.BackColor = Color.White
        Button38.BackColor = Color.White
        Button39.BackColor = Color.White
        Button40.BackColor = Color.White
        Button41.BackColor = Color.White
        Button42.BackColor = Color.White
        Button43.BackColor = Color.White
        Button45.BackColor = Color.White
        Button46.BackColor = Color.White
        Button47.BackColor = Color.White
        Button48.BackColor = Color.White
        Button49.BackColor = Color.White
        Button50.BackColor = Color.White
        Button51.BackColor = Color.White
        Button52.BackColor = Color.White
        Button53.BackColor = Color.White
        Button54.BackColor = Color.White
        Button59.BackColor = Color.White
        Button60.BackColor = Color.White
        Button61.BackColor = Color.White

        Timer1.Stop()

    End Sub

    Private Sub Button90_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button90.Click 'NumLock

        If o = 0 Then

            Button74.Text = ""
            Button75.Text = "Up"
            Button76.Text = ""
            Button78.Text = "Left"
            Button79.Text = ""
            Button81.Text = "Right"
            Button82.Text = ""
            Button83.Text = "Down"
            Button84.Text = ""
            Button86.Text = ""
            Button87.Text = "Del"
            Button89.Text = ""

            o = 1

            Button90.BackColor = Color.Green

        Else

            Button74.Text = "7"
            Button75.Text = "8"
            Button76.Text = "9"
            Button78.Text = "4"
            Button79.Text = "5"
            Button81.Text = "6"
            Button82.Text = "1"
            Button83.Text = "2"
            Button84.Text = "3"
            Button86.Text = "0"
            Button87.Text = "."
            Button89.Text = "="

            o = 0

            Button90.BackColor = Color.White

        End If

    End Sub

    Private Sub Button74_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button74.Click ' 7 num

        If o = 0 Then

            TextBox1.Text &= Button74.Text

            Button74.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click ' 8 num

        If o = 0 Then

            TextBox1.Text &= Button75.Text

            Button75.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click '9 num

        If o = 0 Then

            TextBox1.Text &= Button76.Text

            Button76.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click '4 num

        If o = 0 Then

            TextBox1.Text &= Button78.Text

            Button78.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click '5 num

        If o = 0 Then

            TextBox1.Text &= Button79.Text

            Button79.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button81.Click '6 num

        If o = 0 Then

            TextBox1.Text &= Button81.Text

            Button81.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button82.Click '1 num

        If o = 0 Then

            TextBox1.Text &= Button82.Text

            Button82.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button83_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button83.Click ' 2 num

        If o = 0 Then

            TextBox1.Text &= Button83.Text

            Button83.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button84_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button84.Click '3 num

        If o = 0 Then

            TextBox1.Text &= Button84.Text

            Button84.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button86_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button86.Click '0 num

        If o = 0 Then

            TextBox1.Text &= Button86.Text

            Button86.BackColor = Color.Red

            Timer1.Start()

        End If

    End Sub

    Private Sub Button87_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button87.Click ', num, del

        If o = 0 Then

            TextBox1.Text &= Button87.Text

            Button87.BackColor = Color.Red

            Timer1.Start()

        Else

            Button87.BackColor = Color.Green

            TextBox1.Clear()

            a = 0

            Timer1.Start()

        End If

    End Sub

    Private Sub Button89_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button89.Click '= num

        If o = 0 Then

            If i = 1 Then

                TextBox1.Text = a + TextBox1.Text

            ElseIf i = 2 Then

                TextBox1.Text = a - TextBox1.Text

            ElseIf i = 3 Then

                TextBox1.Text = a * TextBox1.Text

            ElseIf i = 4 Then

                TextBox1.Text = a / TextBox1.Text

            End If

            i = 0

            a = 0

            Button89.BackColor = Color.Yellow

            Timer1.Start()

        Else

            Button89.BackColor = Color.White

        End If

    End Sub

    Private Sub Button88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button88.Click '+ num

        a = TextBox1.Text

        TextBox1.Text = ""

        i = 1

        Button88.BackColor = Color.Yellow

        Timer1.Start()

    End Sub

    Private Sub Button85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button85.Click '- num

        a = TextBox1.Text

        TextBox1.Text = ""

        i = 2

        Button85.BackColor = Color.Yellow

        Timer1.Start()

    End Sub

    Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button80.Click '* num

        a = TextBox1.Text

        TextBox1.Text = ""

        i = 3

        Button80.BackColor = Color.Yellow

        Timer1.Start()

    End Sub

    Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click '/ num

        a = TextBox1.Text

        TextBox1.Text = ""

        i = 4

        Button77.BackColor = Color.Yellow

        Timer1.Start()

    End Sub
End Class