Timer1.Start()
        If GetAsyncKeyState(Keys.NumPad1) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{Enter}")
            Timer1.Stop()
        End If
        If GetAsyncKeyState(Keys.NumPad2) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox2.Text)
            SendKeys.Send("{Enter}")
            Timer1.Stop()
        End If
        If GetAsyncKeyState(Keys.NumPad3) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox3.Text)
            SendKeys.Send("{Enter}")
            Timer1.Stop()
        End If