My On-screen Russian Keyboard - Form1.vb

Public Class Form1

    'Vars
    Public _APP_ As String
    'Booleans
    Public shift_key_down As Boolean = False
    Public caplock_on As Boolean = False

    'onLoad
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Process.Start("Notepad")
        Me.TopMost = True
    End Sub

    'Subs
    Public Sub set_shift()
        If shift_key_down = False Then
            shift_key_down = True
            Button55.ForeColor = System.Drawing.Color.Green
        ElseIf shift_key_down = True Then
            shift_key_down = False
            Button55.ForeColor = System.Drawing.Color.Black
        End If
    End Sub
    Public Sub set_caps()
        If caplock_on = True Then
            caplock_on = False
            Button41.ForeColor = System.Drawing.Color.Black
        ElseIf caplock_on = False Then
            caplock_on = True
            Button41.ForeColor = System.Drawing.Color.Green
        End If
    End Sub
    Public Sub Send_Key(var1, var2)
        _APP_ = TextBox1.Text.ToString
        AppActivate(_APP_)
        If caplock_on = True Or shift_key_down = True Or (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then
            System.Windows.Forms.SendKeys.Send(var1)
        Else
            System.Windows.Forms.SendKeys.Send(var2)
        End If
        If shift_key_down = True Then
            set_shift()
        End If
    Threading.Thread.Sleep(10) 'This stops a random bug where this window is refocused before keypress is "done"
        Me.TopMost = True
    End Sub
    Public Sub Hide_Specials()
        Button43.Enabled = False
        Button43.Visible = False
    End Sub
    Public Sub Close_Latest_Notepad()
        Dim proc = Process.GetProcessesByName("notepad")
        Dim last = proc.Count - 1
        If last >= 0 Then
            proc(last).CloseMainWindow()
        End If
    End Sub

    'onClicks
    Private Sub Button55_Click(sender As Object, e As EventArgs) Handles Button55.Click
        set_shift()
    End Sub
    Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
        set_caps()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Send_Key("{Ё}", "{ё}")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Send_Key("{!}", "{1}")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Send_Key("{@}", "{2}")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Send_Key("{#}", "{3}")
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Send_Key("{$}", "{4}")
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Send_Key("{%}", "{5}")
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Send_Key("{^}", "{6}")
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Send_Key("{&}", "{7}")
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Send_Key("{*}", "{8}")
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Send_Key("{(}", "{9}")
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Send_Key("{)}", "{0}")
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Send_Key("{_}", "{-}")
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Send_Key("{+}", "{=}")
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Send_Key("{BACKSPACE}", "{BACKSPACE}")
    End Sub
    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
        Send_Key("{TAB}", "{TAB}")
    End Sub
    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
        Send_Key("{Й}", "{й}")
    End Sub
    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
        Send_Key("{Ц}", "{ц}")
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        Send_Key("{У}", "{у}")
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        Send_Key("{К}", "{к}")
    End Sub
    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        Send_Key("{Е}", "{е}")
    End Sub
    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        Send_Key("{Н}", "{н}")
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        Send_Key("{Г}", "{г}")
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Send_Key("{Ш}", "{ш}")
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Send_Key("{Щ}", "{щ}")
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Send_Key("{З}", "{з}")
    End Sub
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Send_Key("{Х}", "{х}")
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        Send_Key("{Ъ}", "{ъ}")
    End Sub
    Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
        Send_Key("{/}", "{\}")
    End Sub
    Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
        Send_Key("{Ф}", "{ф}")
    End Sub
    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
        Send_Key("{Ы}", "{ы}")
    End Sub
    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
        Send_Key("{В}", "{в}")
    End Sub
    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
        Send_Key("{А}", "{а}")
    End Sub
    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
        Send_Key("{П}", "{п}")
    End Sub
    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
        Send_Key("{Р}", "{р}")
    End Sub
    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
        Send_Key("{О}", "{о}")
    End Sub
    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
        Send_Key("{Л}", "{л}")
    End Sub
    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
        Send_Key("{Д}", "{д}")
    End Sub
    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
        Send_Key("{Ж}", "{ж}")
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
        Send_Key("{Э}", "{э}")
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Send_Key("{ENTER}", "{ENTER}")
    End Sub
    Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
        Send_Key("{Я}", "{я}")
    End Sub
    Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click
        Send_Key("{Ч}", "{ч}")
    End Sub
    Private Sub Button52_Click(sender As Object, e As EventArgs) Handles Button52.Click
        Send_Key("{С}", "{с}")
    End Sub
    Private Sub Button51_Click(sender As Object, e As EventArgs) Handles Button51.Click
        Send_Key("{М}", "{м}")
    End Sub
    Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click
        Send_Key("{И}", "{и}")
    End Sub
    Private Sub Button49_Click(sender As Object, e As EventArgs) Handles Button49.Click
        Send_Key("{Т}", "{т}")
    End Sub
    Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
        Send_Key("{Ь}", "{ь}")
    End Sub
    Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
        Send_Key("{Б}", "{б}")
    End Sub
    Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
        Send_Key("{Ю}", "{ю}")
    End Sub
    Private Sub Button61_Click(sender As Object, e As EventArgs) Handles Button61.Click
        Send_Key("{<}", "{.}")
    End Sub
    Private Sub Button56_Click(sender As Object, e As EventArgs) Handles Button56.Click
        Send_Key("{>}", "{,}")
    End Sub
    Private Sub Button60_Click(sender As Object, e As EventArgs) Handles Button60.Click
        Send_Key("{{}", "{[}")
    End Sub
    Private Sub Button57_Click(sender As Object, e As EventArgs) Handles Button57.Click
        Send_Key("{}}", "{]}")
    End Sub
    Private Sub Button59_Click(sender As Object, e As EventArgs) Handles Button59.Click
        Send_Key(" ", " ")
    End Sub
    Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
        Send_Key("{~}", "{`}")
    End Sub
    Private Sub Button58_Click(sender As Object, e As EventArgs) Handles Button58.Click
        Send_Key("{DELETE}", "{DELETE}")
    End Sub
    Private Sub Button62_Click(sender As Object, e As EventArgs) Handles Button62.Click
        Send_Key("{INSERT}", "{INSERT}")
    End Sub
    Private Sub Button63_Click(sender As Object, e As EventArgs) Handles Button63.Click
        Send_Key("{HOME}", "{HOME}")
    End Sub
    Private Sub Button66_Click(sender As Object, e As EventArgs) Handles Button66.Click
        Send_Key("{END}", "{END}")
    End Sub
    Private Sub Button80_Click(sender As Object, e As EventArgs) Handles Button80.Click
        Send_Key("{Дж}", "{дж}")
    End Sub
    Private Sub Button81_Click(sender As Object, e As EventArgs) Handles Button81.Click
        Send_Key("{HELP}", "{HELP}")
    End Sub
    Private Sub Button65_Click(sender As Object, e As EventArgs) Handles Button65.Click
        Send_Key("{PRTSC}", "{PRTSC}")
    End Sub
    Private Sub Button79_Click(sender As Object, e As EventArgs) Handles Button79.Click
        Send_Key("{F1}", "{F1}")
    End Sub
    Private Sub Button78_Click(sender As Object, e As EventArgs) Handles Button78.Click
        Send_Key("{F2}", "{F2}")
    End Sub
    Private Sub Button77_Click(sender As Object, e As EventArgs) Handles Button77.Click
        Send_Key("{F3}", "{F3}")
    End Sub
    Private Sub Button76_Click(sender As Object, e As EventArgs) Handles Button76.Click
        Send_Key("{F4}", "{F4}")
    End Sub
    Private Sub Button75_Click(sender As Object, e As EventArgs) Handles Button75.Click
        Send_Key("{F5}", "{F5}")
    End Sub
    Private Sub Button74_Click(sender As Object, e As EventArgs) Handles Button74.Click
        Send_Key("{F6}", "{F6}")
    End Sub
    Private Sub Button73_Click(sender As Object, e As EventArgs) Handles Button73.Click
        Send_Key("{F7}", "{F7}")
    End Sub
    Private Sub Button72_Click(sender As Object, e As EventArgs) Handles Button72.Click
        Send_Key("{F8}", "{F8}")
    End Sub
    Private Sub Button71_Click(sender As Object, e As EventArgs) Handles Button71.Click
        Send_Key("{F9}", "{F9}")
    End Sub
    Private Sub Button70_Click(sender As Object, e As EventArgs) Handles Button70.Click
        Send_Key("{F10}", "{F10}")
    End Sub
    Private Sub Button69_Click(sender As Object, e As EventArgs) Handles Button69.Click
        Send_Key("{F11}", "{F11}")
    End Sub
    Private Sub Button68_Click(sender As Object, e As EventArgs) Handles Button68.Click
        Send_Key("{F12}", "{F12}")
    End Sub
    Private Sub Button64_Click(sender As Object, e As EventArgs) Handles Button64.Click
        Send_Key("{PGUP}", "{PGUP}")
    End Sub
    Private Sub Button67_Click(sender As Object, e As EventArgs) Handles Button67.Click
        Send_Key("{PGDN}", "{PGDN}")
    End Sub
    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
        Process.Start("explorer.exe", My.Computer.FileSystem.SpecialDirectories.Desktop)
    End Sub
    Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
        Send_Key("{ей}", "{ей}")
    End Sub
    Private Sub Button82_Click(sender As Object, e As EventArgs) Handles Button82.Click
        Close_Latest_Notepad()
    End Sub
    Private Sub Button83_Click(sender As Object, e As EventArgs) Handles Button83.Click
        AppActivate(TextBox1.Text.ToString)
        System.Windows.Forms.SendKeys.SendWait("^a")
        Send_Key("{DELETE}", "{DELETE}")
    End Sub
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        FindProcess.Show()
    End Sub

    'onClose
    Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Close_Latest_Notepad()
    End Sub

End Class