MS

app/DD-Record-Organiser/frmAbout.vb

@@ -15,7 +15,7 @@
         lblProduktname.Text = My.Application.Info.ProductName
         Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
         Me.lblCompanyName.Text = My.Application.Info.CompanyName
-        Me.txtDescription.Text = My.Application.Info.Description
+        ' Me.txtDescription.Text = My.Application.Info.Description
         Dim version = ClassDatabase.Execute_Scalar("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
         If Not IsNothing(version) Then
             Me.lbldatabase.Text = String.Format("Database-Version: {0}", version.ToString)
@@ -39,4 +39,15 @@
     Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lbldatabase.Click
 
     End Sub
+
+    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
+        Dim _filename = Application.StartupPath & "\ChangeLog.txt"
+        If System.IO.File.Exists(_filename) Then
+            System.Diagnostics.Process.Start(_filename)
+            LinkLabel3.LinkVisited = True
+        Else
+            MsgBox("Could not find the changelog file!", MsgBoxStyle.Exclamation)
+        End If
+
+    End Sub
 End Class