Il codice completo:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Sendemail = Me.UsersListTableAdapter1.EmailCheck(TextBox1.Text )

If Sendemail Is Nothing Then
MsgBox("Your email is not in our database. Please subscribe! ", MsgBoxStyle.Exclamation)
TextBox1.Clear()
Else

Dim smtpServer As New SmtpClient()
ProgressBar1.Value = 10
Dim mail As New MailMessage()
ProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential("info.sdmt@gmail.com", "sdmtusercommunications01")
ProgressBar1.Value = 23
Gmail Account
smtpServer.Port = 587
ProgressBar1.Value = 27
smtpServer.Host = "smtp.gmail.com"
ProgressBar1.Value = 40
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("xxxx@gmail.com")
mail.To.Add (TextBox1.Text)
mail.Subject = "Username & Password Retrival"
mail.Body = "HO BISOGNO DI SCRIVERE QUESTA E' LA TUA USER xxxxx E QUESTA e' LA TUA PASSWORD xxxxx"
smtpServer.Send(mail)
ProgressBar1.Value = 100
MsgBox("mail Sent!")
ProgressBar1.Value = 0
TextBox1.Clear()
Me.Hide()
Form2.Show()
End If
End Sub



Grazie per la pazienza... ma proprio non ci riesco