Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Start()
        If GetAsyncKeyState(Keys.NumPad1) Then
            If merker = 1 Then
                Exit Sub
            End If
            SendKeys.Send("T")
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{Enter}")
            merker = 1
        ElseIf GetAsyncKeyState(Keys.NumPad2) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox2.Text)
            SendKeys.Send("{Enter}")
            merker = 1
        ElseIf GetAsyncKeyState(Keys.NumPad3) Then
            If merker = 1 Then
                Exit Sub
            End If
            SendKeys.Send("T")
            SendKeys.Send(TextBox3.Text)
            SendKeys.Send("{Enter}")
            merker = 1
        Else
            merker = 0
        End If
    End Sub