• Udelej potrebne TextBox, etc podle obrazku:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mail As New mailMessage
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        mail.from = New MailAddress(TextBox1.Text)
        mail.To.Add(TextBox1.Text)
        mail.Subject = TextBox3.Text
        mail.Body = TextBox4.Text
        SMTP.Port = "587"
        SMTP.Crendentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox5.Text)
        SMTP.EnableSsl = True
        SMTP.Send(mail)
        GroupBox2.Enabled = False
        GroupBox1.Enabled = True
        Button1.Enabled = True

    End Sub

• Pojmenovani a zbytek uz si snad dopises.
• S GrupBox muzes nechat zobrazit az po prihlaseni, typu ::

  GroupBox2.Enabled = False
        GroupBox1.Enabled = True
        Button1.Enabled = True
        Button2.Enabled = False

• Tezko rict co ches. Jestli posilat ze své Gmail.schranky, nebo jen Emaily dostavat z TextBoxu, opravdu nevim..