I just figured it out.
Private Sub SendEmailClassRequest(ByVal Email As Boolean)
Dim fromAddress As MailAddress = New MailAddress("email@email.com")
Dim toAddress As MailAddress = New MailAddress("email1@email.com")
Dim msgmail As MailMessage = New MailMessage(fromAddress, ...