Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("form2.textbox1.text", "form2.Textbox2.text")
        SmtpServer.Port = (TextBox1.Text)
        SmtpServer.Host = (TextBox2.Text)
        SmtpServer.EnableSsl = (ComboBox1.Text)
        Form3.Show()
        Me.Hide()

        My.Settings.smtp_port = TextBox1.Text
        My.Settings.smtp_server = TextBox2.Text
        My.Settings.SmtpServer_EnableSsl() = ComboBox1.Text
        My.Settings.Save()
        My.Settings.Reload()



    End Sub