From c4e50fba3ab8553674fa8066c7ed6ee562a6f0f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E2=96=91=E2=96=92=E2=96=93=E2=96=88=E2=94=82=E3=80=90Walk?=
 =?UTF-8?q?man=E3=80=91=E2=94=82=E2=96=88=E2=96=93=E2=96=92=E2=96=91?=
 <matthewcarter17@gmail.com>
Date: Sun, 16 Sep 2018 18:59:27 +0200
Subject: [PATCH] added version label

---
 KeyInsert.Designer.vb | 14 ++++++++++++++
 KeyInsert.vb          |  1 +
 2 files changed, 15 insertions(+)

diff --git a/KeyInsert.Designer.vb b/KeyInsert.Designer.vb
index d2cfcbb..9db950b 100644
--- a/KeyInsert.Designer.vb
+++ b/KeyInsert.Designer.vb
@@ -76,6 +76,7 @@ Partial Class KeyInsert
         Me.lblStartupDelay = New System.Windows.Forms.Label()
         Me.lblRunCountLimit = New System.Windows.Forms.Label()
         Me.chkKeepOnTop = New System.Windows.Forms.CheckBox()
+        Me.lblVersion = New System.Windows.Forms.Label()
         Me.contextCommands.SuspendLayout
         Me.grpStopKey.SuspendLayout
         Me.grpStart.SuspendLayout
@@ -510,6 +511,17 @@ Partial Class KeyInsert
         Me.chkKeepOnTop.Text = "Keep on window top"
         Me.chkKeepOnTop.UseVisualStyleBackColor = true
         '
+        'lblVersion
+        '
+        Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.lblVersion.AutoSize = true
+        Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 6!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.lblVersion.Location = New System.Drawing.Point(718, 325)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.Size = New System.Drawing.Size(21, 9)
+        Me.lblVersion.TabIndex = 18
+        Me.lblVersion.Text = "1.0.0"
+        '
         'KeyInsert
         '
         Me.AcceptButton = Me.btnStart
@@ -517,6 +529,7 @@ Partial Class KeyInsert
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.CancelButton = Me.btnRemove
         Me.ClientSize = New System.Drawing.Size(739, 335)
+        Me.Controls.Add(Me.lblVersion)
         Me.Controls.Add(Me.chkKeepOnTop)
         Me.Controls.Add(Me.lblRunCountLimit)
         Me.Controls.Add(Me.lblStartupDelay)
@@ -551,6 +564,7 @@ Partial Class KeyInsert
         Me.ResumeLayout(false)
         Me.PerformLayout
     End Sub
+    Private lblVersion As System.Windows.Forms.Label
     Private WithEvents chkKeepOnTop As System.Windows.Forms.CheckBox
     Private optKeyNumLock As System.Windows.Forms.RadioButton
     Private optKeyScrollLock As System.Windows.Forms.RadioButton
diff --git a/KeyInsert.vb b/KeyInsert.vb
index 0f80e47..500f574 100644
--- a/KeyInsert.vb
+++ b/KeyInsert.vb
@@ -3,6 +3,7 @@ Imports System.Xml
 Public Partial Class KeyInsert
     Public Sub New()
         Me.InitializeComponent()
+        lblVersion.Text = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build
         Dim concatPath As String = ""
         For Each s As String In My.Application.CommandLineArgs
             If IO.File.Exists(s) Then