Change on Show Version in notifications

Change the way the program version is displayed in notifications
Only major and minor versions are displayed due to limitations on the number of characters that can be displayed in notifications

Author: gawindx

WinNUT_V2/WinNUT_GUI/WinNUT.vb

@@ -134,7 +134,7 @@ Public Class WinNUT
         LogFile.LogTracing("Loaded Params Complete", LogLvl.LOG_DEBUG, Me)
 
         'Init Systray
-        Me.NotifyIcon.Text = WinNUT_Globals.LongProgramName & " - " & WinNUT_Globals.ProgramVersion
+        Me.NotifyIcon.Text = WinNUT_Globals.LongProgramName & " - " & WinNUT_Globals.ShortProgramVersion
         Me.NotifyIcon.Visible = False
         LogFile.LogTracing("NotifyIcons Initialised", LogLvl.LOG_DEBUG, Me)
 
@@ -404,7 +404,7 @@ Public Class WinNUT
     End Sub
 
     Private Sub Event_UpdateNotifyIconStr(ByVal Optional Reason As String = Nothing, ByVal Optional Message As String = Nothing) Handles Me.UpdateNotifyIconStr
-        Dim ShowVersion As String = StrReverse(StrReverse(WinNUT_Globals.ProgramVersion).Substring(StrReverse(WinNUT_Globals.ProgramVersion).IndexOf(".") + 1))
+        Dim ShowVersion As String = WinNUT_Globals.ShortProgramVersion
         Dim NotifyStr As String = WinNUT_Globals.ProgramName & " - " & ShowVersion & vbNewLine
         Dim FormText As String = WinNUT_Globals.ProgramName
         Select Case Reason

WinNUT_V2/WinNUT_GUI/WinNUT_Globals.vb

@@ -11,6 +11,7 @@ Module WinNUT_Globals
     Public LongProgramName As String
     Public ProgramName As String
     Public ProgramVersion As String
+    Public ShortProgramVersion As String
     Public GitHubURL As String
     Public Copyright As String
     Public Directory_AppData As String
@@ -23,6 +24,7 @@ Module WinNUT_Globals
         LongProgramName = My.Application.Info.Description
         ProgramName = My.Application.Info.ProductName
         ProgramVersion = System.Reflection.Assembly.GetEntryAssembly().GetName().Version.ToString
+        ShortProgramVersion = ProgramVersion.Substring(0, ProgramVersion.IndexOf(".", ProgramVersion.IndexOf(".") + 1))
         GitHubURL = My.Application.Info.Trademark
         Copyright = My.Application.Info.Copyright
         Directory_AppData = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\WinNUT-Client"