VS 2008 Sending e-mail

Private Sub labelaKliknuta(ByVal sender As DevExpress.XtraEditors.HyperLinkEdit, ByVal e As System.EventArgs)
        If sender.Tag <> "" Then
            If MessageBox.Show("Da li ste sigurni da želite poslati rođendansku čestitku studentu: " & vbNewLine & sender.Text & "", "Potvrda", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
 
                Dim MyMailMessage As New MailMessage()
 
                Try
                    MyMailMessage.From = New MailAddress("someaddress@something")
                    MyMailMessage.To.Add(sender.Tag.ToString)
                    MyMailMessage.Subject = "Sretan rođendan!"
                    MyMailMessage.Body = "Poštovani kolega " & sender.Text & "," & vbNewLine & "Želimo Vam mnogo sreće i veselja za Vaš rođendan!" & vbNewLine & "Vaš, Team."
 
                    Dim SMTP As New SmtpClient("smtp.googlemail.com")
                    SMTP.EnableSsl = True
                    SMTP.Port = 465
                    SMTP.Credentials = New System.Net.NetworkCredential("username", "password")
                    SMTP.SendAsync(MyMailMessage, Nothing)
                    MessageBox.Show("Poslano")
                Catch ex As Exception
                    MessageBox.Show("Greska")
                End Try
 
 
 
            End If
        Else
            MessageBox.Show("Za odabranog studenta ne postoji podatak o e-mail adresi u sistemu" & vbNewLine & "Molimo kontaktirajte administratora kako bi se problem riješio", "Nedostaje e-mail adresa", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
 
        End If
 
    End Sub