Почему не может мое мероприятие .груз будет найден?

---

Я пытаюсь отправить информацию, которую люди предоставляют в форме по электронной почте самому себе. Цель состоит в том, чтобы люди вводили информацию об учетной записи, которая будет отправлена сотруднику, который позже сможет обновить базу данных. Вот код, который у меня есть до сих пор, но у меня возникла проблема с моим "handles myBase.load", в котором говорится, что "загрузка события не может быть найдена". Кто-нибудь знает, что может быть не так?

Заметка на полях: Я знаю, что должен добавить что-то в сетевые учетные данные, но я не хотел добавлять свой адрес электронной почты и пароль к сообщению.

Заранее спасибо за вашу помощь.

Что я уже пробовал:

Система Импорта.Нет.Почта

Частичная регистрация класса


Частная суб signUp_Load(как byval отправителя как объект, как byval E Как системы.Равно EventArgs) Обрабатывает Ключевое Слово Mybase.загрузить


Конец Подводной Лодки

Private Sub Button1_Click (sender As Object, e As EventArgs) обрабатывает btnSubmit.Щелчок

Dim Smtp_Server Как Новый SmtpClient
Dim e_mail как новый MailMessage()

SMTP-сервер.UseDefaultCredentials = False
SMTP-сервер.Учетные Данные = New Net. NetworkCredential("", "")
SMTP-сервер.Порт = 587
SMTP-сервер.EnableSsl = True
SMTP-сервер.Хост = "smtp.gmail.com"

e_mail = новое почтовое сообщение()
электронная почта.From = New MailAddress(txtUsername.Текст)
e_mail.Для.Добавить(Поле Textbox2.Текст)
e_mail. Subject = " информация о счете клиента"
электронная почта.IsBodyHtml = False
электронная почта.Body = txtUsername.Текст
SMTP-сервер.Отправить(e_mail)




Конец Подводной Лодки

Конец Класса

---