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.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
-        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
-        Using player As New SoundPlayer(My.Resources.WindowsXPCriticalStop)
-            player.Play()
-        End Using
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        lblCoppiedNotifyer.Text = ""
+        Timer1.Stop()
     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
-
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
-
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        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