savesetting

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
                My.Settings.server = TextBox1.Text
                My.Settings.user = TextBox2.Text
                My.Settings.password = TextBox3.Text
                My.Settings.database = TextBox4.Text
                My.Settings.Save()
                MsgBox("Konfigurasi Server Tersimpan!", MsgBoxStyle.Information, MsgBoxResult.Ok)
                'Application.Restart()
                Me.Close()
            Else
                MsgBox("Jangan kosongkan data!")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        My.Settings.Reload()
        TextBox1.Text = My.Settings.server
        TextBox2.Text = My.Settings.user
        TextBox3.Text = My.Settings.password
        TextBox4.Text = My.Settings.database
    End Sub
End Class