Imports System.Net.Mail
Public Class Form2
    Private Sub ThirteenButton1_Click(sender As Object, e As EventArgs) Handles ThirteenButton1.Click

        Me.Close()

        Form1.Close()

    End Sub

    Private Sub ThirteenButton2_Click(sender As Object, e As EventArgs) Handles ThirteenButton2.Click

        If ThirteenTextBox1.Text = "" Or ThirteenTextBox2.Text = "" Then

            MessageBox.Show("There is no body or subject!")

        Else

            Dim EmailMessage As New MailMessage()
            Try
                EmailMessage.From = New MailAddress("personalbotemail@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.Subject = ThirteenTextBox1.Text
                EmailMessage.Body = ThirteenTextBox2.Text
                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("personalbotemail@gmail.com", "")
                SMTP.Send(EmailMessage)
            Catch ex As Exception

            End Try

        End If

    End Sub

    Private Sub ThirteenButton3_Click(sender As Object, e As EventArgs) Handles ThirteenButton3.Click

        If ThirteenTextBox1.Text = "" Or ThirteenTextBox2.Text = "" Then

            MessageBox.Show("There is no body or subject!")

        Else

            Dim EmailMessage As New MailMessage()
            Try
                EmailMessage.From = New MailAddress("personalbotemail@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.To.Add("HeheNo@gmail.com")
                EmailMessage.Subject = ThirteenTextBox1.Text
                EmailMessage.Body = ThirteenTextBox2.Text
                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("personalbotemail@gmail.com", "")
                SMTP.Send(EmailMessage)
            Catch ex As Exception

            End Try

        End If

    End Sub

    Private Sub ThirteenButton4_Click(sender As Object, e As EventArgs) Handles ThirteenButton4.Click

        Form1.Show()
        Me.Close()

    End Sub
End Class