Imports System.Net.Mail
Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Hide()
        Dim frmSplash As New SplashScreen1
        frmSplash.Show()
        frmSplash.Update()
        Threading.Thread.Sleep(5000)
        frmSplash.Close()
        Me.Visible = True
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Dim smtpServer As New SmtpClient()
        ProgressBar1.Value = 10
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential(txtUsername.Text, txtPassword.Text) 'Username & Password to connect Gmail
        'Using Gmail
        ProgressBar1.Value = 10
        ProgressBar1.Value = 20
        smtpServer.Port = 587 'Port
        ProgressBar1.Value = 30
        smtpServer.Host = "smtp.gmail.com" 'Gmail Smtp
        ProgressBar1.Value = 40
        smtpServer.EnableSsl = True 'SSL Check
        mail = New MailMessage()
        ProgressBar1.Value = 50
        mail.From = New MailAddress("hello@hello.com")
        mail.To.Add(txtEmail.Text)
        ProgressBar1.Value = 80
        mail.Subject = txtSubject.Text 'Message Subject
        mail.Body = txtMessage.Text
        smtpServer.Send(mail)
        ProgressBar1.Value = 100
        MsgBox("Mail Sent to" & "--" & txtEmail.Text, ) 'Message sent
        MsgBox("Thanks for Using!!")

    End Sub

    Private Sub DeveloperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeveloperToolStripMenuItem.Click
        AboutBox1.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub ClearAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAllToolStripMenuItem.Click
        txtEmail.Clear()
        txtMessage.Clear()
        txtPassword.Clear()
        txtSubject.Clear()
        txtUsername.Clear()
        ProgressBar1.Value = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtEmail.Clear()
        txtMessage.Clear()
        txtPassword.Clear()
        txtSubject.Clear()
        txtUsername.Clear()
        ProgressBar1.Value = 0
    End Sub
End Class