Visual Basic | Yardım

Public Class Form1

    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim log As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = log

    End Sub

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

        If e.KeyChar = Convert.ToChar(13) Then
            MessageBox.Show("enter key")
        End If

    End Sub

End Class