Changed the workflow to remove the copy to clipboard button and hid the URL text box.

Copied indicator has been added.
Added Update button to the About form.
Fix the spinny boy on the About page
Removed the sound the played

HelloWorld/Form1.Designer.vb

@@ -22,6 +22,7 @@ Partial Class Form1
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
         Me.btnClickThis = New System.Windows.Forms.Button()
         Me.lblHelloWorld = New System.Windows.Forms.Label()
@@ -34,12 +35,14 @@ Partial Class Form1
         Me.btnDHLShipping = New System.Windows.Forms.Button()
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
         Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lblCoppiedNotifyer = New System.Windows.Forms.Label()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.MenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         'btnClickThis
         '
-        Me.btnClickThis.Location = New System.Drawing.Point(12, 148)
+        Me.btnClickThis.Location = New System.Drawing.Point(11, 203)
         Me.btnClickThis.Name = "btnClickThis"
         Me.btnClickThis.Size = New System.Drawing.Size(138, 23)
         Me.btnClickThis.TabIndex = 0
@@ -49,7 +52,7 @@ Partial Class Form1
         'lblHelloWorld
         '
         Me.lblHelloWorld.AutoSize = True
-        Me.lblHelloWorld.Location = New System.Drawing.Point(9, 101)
+        Me.lblHelloWorld.Location = New System.Drawing.Point(8, 161)
         Me.lblHelloWorld.Name = "lblHelloWorld"
         Me.lblHelloWorld.Size = New System.Drawing.Size(99, 13)
         Me.lblHelloWorld.TabIndex = 1
@@ -57,7 +60,7 @@ Partial Class Form1
         '
         'txtFinalUrl
         '
-        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 121)
+        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 177)
         Me.txtFinalUrl.Name = "txtFinalUrl"
         Me.txtFinalUrl.ReadOnly = True
         Me.txtFinalUrl.Size = New System.Drawing.Size(652, 20)
@@ -120,7 +123,7 @@ Partial Class Form1
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(687, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(587, 24)
         Me.MenuStrip1.TabIndex = 13
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -130,11 +133,24 @@ Partial Class Form1
         Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
         Me.AboutToolStripMenuItem.Text = "About"
         '
+        'lblCoppiedNotifyer
+        '
+        Me.lblCoppiedNotifyer.AutoSize = True
+        Me.lblCoppiedNotifyer.Location = New System.Drawing.Point(13, 100)
+        Me.lblCoppiedNotifyer.Name = "lblCoppiedNotifyer"
+        Me.lblCoppiedNotifyer.Size = New System.Drawing.Size(92, 13)
+        Me.lblCoppiedNotifyer.TabIndex = 14
+        Me.lblCoppiedNotifyer.Text = "lblCoppiedNotifyer"
+        '
+        'Timer1
+        '
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(687, 181)
+        Me.ClientSize = New System.Drawing.Size(587, 122)
+        Me.Controls.Add(Me.lblCoppiedNotifyer)
         Me.Controls.Add(Me.btnDHLShipping)
         Me.Controls.Add(Me.btnFedexShipping)
         Me.Controls.Add(Me.Button1)
@@ -168,4 +184,6 @@ Partial Class Form1
     Friend WithEvents btnDHLShipping As Button
     Friend WithEvents MenuStrip1 As MenuStrip
     Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblCoppiedNotifyer As Label
+    Friend WithEvents Timer1 As Timer
 End Class

HelloWorld/Form1.resx

@@ -120,6 +120,9 @@
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

HelloWorld/Form1.vb

@@ -1,20 +1,16 @@
 
+Imports System.Media
 Imports System.Net
 Imports System.Net.Http
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
-Imports System.Media
 
 
 Public Class Form1
-    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClickThis.Click
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = ""
-        Using player As New SoundPlayer(My.Resources.WindowsXPCriticalStop)
+        Timer1.Stop()
-            player.Play()
-        End Using
     End Sub
-
-
     Private Sub btnEditBaseUrl_Click(sender As Object, e As EventArgs) Handles btnEditBaseUrl.Click
         Dim rawRMA As String
         rawRMA = txtRMA.Text
@@ -22,6 +18,10 @@ Public Class Form1
         Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
 
         txtFinalUrl.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=ref&cons=" & encodedRMA
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
@@ -31,6 +31,10 @@ Public Class Form1
         Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
 
         txtFinalUrl.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=con&cons=" & encodedRMA
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
     End Sub
 
     Private Sub btnFedexShipping_Click(sender As Object, e As EventArgs) Handles btnFedexShipping.Click
@@ -40,6 +44,10 @@ Public Class Form1
         Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
 
         txtFinalUrl.Text = "https://www.fedex.com/fedextrack/?trknbr=" & encodedRMA
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnDHLShipping.Click
@@ -49,15 +57,19 @@ Public Class Form1
         Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
 
         txtFinalUrl.Text = "https://www.dhl.com/au-en/home/tracking/tracking-express.html?submit=1&tracking-id=" & encodedRMA
-    End Sub
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
-
+        lblCoppiedNotifyer.Text = "Copied!"
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        Timer1.Interval = 5000
-
+        Timer1.Start()
     End Sub
 
     Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
         Dim box = New Form3()
         box.Show()
     End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        lblCoppiedNotifyer.Text = ""
+    End Sub
 End Class
 

HelloWorld/Form3.Designer.vb

@@ -24,25 +24,35 @@ Partial Class Form3
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form3))
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnUpdates = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label1.Cursor = System.Windows.Forms.Cursors.Arrow
         Me.Label1.Location = New System.Drawing.Point(12, 9)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(222, 39)
         Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Verson 1.0.5.3 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Made by Ben Nicholson - All Rights Reserved" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Label1.Text = "Verson 1.0.6.0 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Made by Ben Nicholson - All Rights Reserved" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.Label1.UseWaitCursor = True
+        '
+        'btnUpdates
+        '
+        Me.btnUpdates.Location = New System.Drawing.Point(87, 66)
+        Me.btnUpdates.Name = "btnUpdates"
+        Me.btnUpdates.Size = New System.Drawing.Size(75, 23)
+        Me.btnUpdates.TabIndex = 2
+        Me.btnUpdates.Text = "Updates"
+        Me.btnUpdates.UseVisualStyleBackColor = True
         '
         'Form3
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(246, 60)
+        Me.ClientSize = New System.Drawing.Size(246, 101)
+        Me.Controls.Add(Me.btnUpdates)
         Me.Controls.Add(Me.Label1)
         Me.ForeColor = System.Drawing.Color.Black
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
@@ -58,4 +68,5 @@ Partial Class Form3
     End Sub
 
     Friend WithEvents Label1 As Label
+    Friend WithEvents btnUpdates As Button
 End Class

HelloWorld/Form3.resx

@@ -117,9 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

HelloWorld/Form3.vb

@@ -1,5 +1,10 @@
 Public Class Form3
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnUpdates.Click
+        Dim webAddress As String = "https://gitea.apointless.space/bsncubed/ShippingTracker/releases"
+        Process.Start(webAddress)
+    End Sub
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
     End Sub
 End Class

HelloWorld/My Project/About.vb

@@ -1,3 +0,0 @@
-Public Class About
-
-End Class

HelloWorld/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyTitle("Shipping Tracker")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
-<Assembly: AssemblyProduct("TNT Tracking Link Creator")>
+<Assembly: AssemblyProduct("Shipping Tracker")>
 <Assembly: AssemblyCopyright("Copyright © 2025 Ben Nicholson")>
 <Assembly: AssemblyTrademark("")>
 
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.5.3")>
+<Assembly: AssemblyVersion("1.0.6.0")>
-<Assembly: AssemblyFileVersion("1.0.5.3")>
+<Assembly: AssemblyFileVersion("1.0.6.0")>
 <Assembly: NeutralResourcesLanguage("en-AU")>

HelloWorld/My Project/Resources.Designer.vb

@@ -59,14 +59,5 @@ Namespace My.Resources
                 resourceCulture = value
             End Set
         End Property
-        
-        '''<summary>
-        '''  Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
-        '''</summary>
-        Friend ReadOnly Property WindowsXPCriticalStop() As System.IO.UnmanagedMemoryStream
-            Get
-                Return ResourceManager.GetStream("WindowsXPCriticalStop", resourceCulture)
-            End Get
-        End Property
     End Module
 End Namespace

HelloWorld/My Project/Resources.resx

@@ -118,7 +118,7 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="WindowsXPCriticalStop" type="System.Resources.ResXFileRef, System.Windows.Forms">
+	<!--  <data name="WindowsXPCriticalStop" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\WindowsXPCriticalStop.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
+  </data> -->
 </root>

HelloWorld/TNT Tracking Link.vbproj

@@ -228,7 +228,6 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="TNT.ico" />
-    <None Include="WindowsXPCriticalStop.wav" />
   </ItemGroup>
   <ItemGroup>
     <BootstrapperPackage Include=".NETFramework,Version=v4.8">