Help meeeh!

Private Sub startbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbtn.Click
        If CheckBox1.Checked = True Then
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress("Grapefruitbomber@gmail.com")
            MyMailMessage.To.Add(tobox.Text)
            MyMailMessage.Subject = ("Free VI4GRA!!!")
            MyMailMessage.Body = ("CAN'T GET IT UP!?!?!? GO TO http://www.freevi4gr*****m !")
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
            SMTPServer.EnableSsl = True
            Label1.Text = Val(Label1.Text + 1)
            SMTPServer.Send(MyMailMessage)
            MsgBox("Please choose a Gmail option!", MsgBoxStyle.Critical, "Error")
        End If

        Timer2.Start()
    End Sub

 SMTPServer.Send(MyMailMessage)