MS Icon etc

GUIs.Test.GraphQLTest/frmMain.vb

@@ -80,6 +80,7 @@ Public Class frmMain
 
     Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
         Try
+            SaveConfig()
             _Interface = New GraphQLInterface(_LogConfig,
                                           txtBaseUrl.Text,
                                           txtUsername.Text,
@@ -207,25 +208,26 @@ Public Class frmMain
             MsgBox(ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+    Sub SaveConfig()
+        _Config.Config.ConnectionString = txtConnectionString.Text
+        _Config.Config.BaseUrl = txtBaseUrl.Text
 
+        _Config.Config.CertificateFile = txtCertFile.Text
+        _Config.Config.CertificatePass = txtCertPass.Text
+        _Config.Config.CertificateFingerprint = txtCertFingerprint.Text
+
+        _Config.Config.Email = txtUsername.Text
+        _Config.Config.Password = txtPassword.Text
+        _Config.Config.ProxyHost = txtProxyHost.Text
+        _Config.Config.ProxyPassword = txtProxyPass.Text
+        _Config.Config.ProxyPort = txtProxyPort.Text
+        _Config.Config.ProxyUsername = txtProxyUser.Text
+        _Config.Config.CustomQueryString = txtQuery.Text
+        _Config.Save(ForceAll:=True)
+    End Sub
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
-            _Config.Config.ConnectionString = txtConnectionString.Text
-            _Config.Config.BaseUrl = txtBaseUrl.Text
-
-            _Config.Config.CertificateFile = txtCertFile.Text
-            _Config.Config.CertificatePass = txtCertPass.Text
-            _Config.Config.CertificateFingerprint = txtCertFingerprint.Text
-
-            _Config.Config.Email = txtUsername.Text
-            _Config.Config.Password = txtPassword.Text
-            _Config.Config.ProxyHost = txtProxyHost.Text
-            _Config.Config.ProxyPassword = txtProxyPass.Text
-            _Config.Config.ProxyPort = txtProxyPort.Text
-            _Config.Config.ProxyUsername = txtProxyUser.Text
-            _Config.Config.CustomQueryString = txtQuery.Text
-            _Config.Save(ForceAll:=True)
-
+            SaveConfig()
             Dim oLogoutResponse = _Interface.Logout()
             If oLogoutResponse.StatusCode = Net.HttpStatusCode.OK Then
                 _Logger.Info("Logout successful.")