From df5e8f2d2aa93a5dbfc57956e099dc22e09ff869 Mon Sep 17 00:00:00 2001
From: "Michael J. Seiferling" <mseiferling@gmail.com>
Date: Sun, 6 Mar 2016 16:49:02 -0600
Subject: [PATCH] Fixed issue #41

---
 GBM/Forms/frmMain.vb                 | 6 +-----
 GBM/Managers/mgrCommon.vb            | 1 +
 GBM/Managers/mgrMonitorList.vb       | 1 +
 GBM/My Project/Resources.Designer.vb | 2 +-
 GBM/My Project/Resources.resx        | 2 +-
 5 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/GBM/Forms/frmMain.vb b/GBM/Forms/frmMain.vb
index d3f862f..ac73684 100644
--- a/GBM/Forms/frmMain.vb
+++ b/GBM/Forms/frmMain.vb
@@ -644,7 +644,7 @@ Public Class frmMain
         Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
         Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType)
         Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
-        Dim sConstCopyright As String = Chr(169) & App_Copyright
+        Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year)
 
         mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information)
     End Sub
@@ -1647,10 +1647,6 @@ Public Class frmMain
         End If
     End Sub
 
-    Private Sub txtGameInfo_Enter(sender As Object, e As EventArgs)
-        btnLogToggle.Focus()
-    End Sub
-
     Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
         If e.KeyCode = Keys.Oemtilde AndAlso e.Modifiers = Keys.Control Then
             OpenDevConsole()
diff --git a/GBM/Managers/mgrCommon.vb b/GBM/Managers/mgrCommon.vb
index b4b345f..5c0e9c0 100644
--- a/GBM/Managers/mgrCommon.vb
+++ b/GBM/Managers/mgrCommon.vb
@@ -21,6 +21,7 @@ Public Class mgrCommon
         Try
             Dim request As WebRequest = WebRequest.Create(URL)
             Dim response As WebResponse = request.GetResponse()
+            response.Close()
         Catch ex As Exception
             Return False
         End Try
diff --git a/GBM/Managers/mgrMonitorList.vb b/GBM/Managers/mgrMonitorList.vb
index 2485354..ed0cb7a 100644
--- a/GBM/Managers/mgrMonitorList.vb
+++ b/GBM/Managers/mgrMonitorList.vb
@@ -234,6 +234,7 @@ Public Class mgrMonitorList
                 Cursor.Current = Cursors.Default
                 mgrCommon.ShowMessage(mgrMonitorList_ImportComplete, MsgBoxStyle.Information)
             End If
+            frm.Dispose()
         Else
             mgrCommon.ShowMessage(mgrMonitorList_ImportNothing, MsgBoxStyle.Information)
         End If
diff --git a/GBM/My Project/Resources.Designer.vb b/GBM/My Project/Resources.Designer.vb
index 7ca21e5..00e26a3 100644
--- a/GBM/My Project/Resources.Designer.vb	
+++ b/GBM/My Project/Resources.Designer.vb	
@@ -70,7 +70,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to 2015 Michael J. Seiferling.
+        '''  Looks up a localized string similar to [PARAM] Michael J. Seiferling.
         '''</summary>
         Friend ReadOnly Property App_Copyright() As String
             Get
diff --git a/GBM/My Project/Resources.resx b/GBM/My Project/Resources.resx
index c3db190..69f176a 100644
--- a/GBM/My Project/Resources.resx	
+++ b/GBM/My Project/Resources.resx	
@@ -140,7 +140,7 @@
     <value>This will rebuild all databases and shrink them to an optimal size.[BR]This should only be used if your gbm.s3db files are becoming very large.[BR][BR]Do you wish to continue?</value>
   </data>
   <data name="App_Copyright" xml:space="preserve">
-    <value>2015 Michael J. Seiferling</value>
+    <value>[PARAM] Michael J. Seiferling</value>
   </data>
   <data name="frmMain_Exit" xml:space="preserve">
     <value>Are you sure you want to exit?  Your games will no longer be monitored.</value>