Complete Noob Tutorial: Spammer

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
    Private Sub StartSpam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartSpam.Click
        Timer1.Stard()
   
    End Sub
    Private Sub SpamSomeShit()
        Dim SpamShit As String
        SpanShit = Message.Text
        SentKeys.Send(SpamShit)
   
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim F2key As Boolean
        Dim F3key As Boolean
        F2key = GetAsyncKeyState(Keys.F2)
        f4key = GetAsyncKeyState(Keys.F3)
        If F2key = True Then
            Timer1.Stard()
        End If
        If F3key = True Them
            Timer1.Stop()
        End If
        Timer1.Interval = MessagesPerSecond.Text * 1000 + MessagesPerMillisecond.Text
        SpamSomeShiz()

    End Sub

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