Public Class Form4
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = My.Settings.serverName
        TextBox2.Text = My.Settings.serverdatabase
        TextBox3.Text = My.Settings.serverUser
        TextBox4.Text = My.Settings.serverUserpass
        TextBox5.Text = My.Settings.timeout
        TextBox6.Text = My.Settings.encrypt
        TextBox7.Text = My.Settings.cert
        TextBox8.Text = My.Settings.reason
        TextBox9.Text = My.Settings.subnet
        TextBox10.Text = My.Settings.adminPass
        TextBox20.Text = My.Settings.ServerNameW
        TextBox19.Text = My.Settings.ServerDatabaseW
        TextBox18.Text = My.Settings.ServerUserW
        TextBox17.Text = My.Settings.ServerUserPasW
        TextBox12.Text = My.Settings.SubnetW


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        My.Settings.subnet = TextBox9.Text
        My.Settings.reason = TextBox8.Text
        My.Settings.encrypt = TextBox9.Text
        My.Settings.timeout = TextBox5.Text
        My.Settings.serverUserpass = TextBox4.Text
        My.Settings.serverUser = TextBox3.Text
        My.Settings.serverdatabase = TextBox2.Text
        My.Settings.serverName = TextBox1.Text


        My.Settings.Save()

        MsgBox("au fost incarcate setarile pentru server")



    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Close()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.SubnetW = TextBox12.Text
        My.Settings.ServerNameW = TextBox20.Text
        My.Settings.ServerDatabaseW = TextBox19.Text
        My.Settings.ServerUserPasW = TextBox17.Text
        My.Settings.ServerUserW = TextBox18.Text

    End Sub
End Class