Visual Basic 2010 Express, Code for smtp, How to Send the Email and Password to Mail

Dim smtp As New SmtpClient()
Dim email As New MailMessage()
smtp.Credentials = New Net.NetworkCredential("yourgmail@gmail.com", "yourpass")
smtp.Port = 587
smtp.Host = ("smtp.gmail.com")
smtp.EnableSsl = True
email = New MailMessage()
email.From = New MailAddress("user@gmail.com")
email.To.Add("empfaenger@domain.com")
email.Subject = ("Subject")
email.Body = ("Body")
smtp.Send(email)