currentVersionNr bei Info wird angegeben.

VERAGAddIn/rbnVERAG.vb

@@ -19,6 +19,7 @@ Imports System.Net.Http
 Imports System.Diagnostics
 Imports VERAG_PROG_ALLGEMEIN.Kleinma.Controls
 Imports System.Data.Odbc
+Imports System.Reflection
 
 Public Class VERAGRibbon
     Dim LOGIN_OK = False
@@ -57,7 +58,7 @@ Public Class VERAGRibbon
 
     Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
         Try
-            MsgBox(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
+            MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString)
         Catch ex As Exception
         End Try
     End Sub