Public Class Form1
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Private syl form_load()
            Timer1.Interval = "100"

    End Sub
    Private Sub timer1_timer()
        If (getkeypress(vbKeyF1)) Then
            Second key(text1.text) + ("(enter)")
        End If
    End Sub
End Class