Private Sub emailTeacher()
        Try
            Dim Server As New SmtpClient
            Dim email As New MailMessage()
            Server.UseDefaultCredentials = False
            Server.Port = 465
            Server.EnableSsl = True
            Server.Host = "smpt.gmail.com"
            email = New MailMessage()
            email.From = New MailAddress(fromEmail)
            email.To.Add(emailAddress)
            email.Subject = subjectEmail
            email.IsBodyHtml = False
            email.Body = emailBody
            Server.Send(email)
            MsgBox("Mail Sent")
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try