remove scrollbar in frmIndex, fix multiple saved values in lookup control, remove version tag button, fix final messagebox filename, allow null for wd index, delete skipped files

Global_Indexer/frmIndex.vb

@@ -76,13 +76,14 @@ Public Class frmIndex
     End Sub
 
     Sub addLabel(indexname As String, hinweis As String, ylbl As Integer, anz As String)
-        Dim lbl As New Label
-        lbl.Name = "lbl" & indexname
-        lbl.Size = New Size(CInt(hinweis.Length * 15), 18) 'CInt(hinweis.Length * 9)
-        lbl.Text = hinweis
+        Dim lbl As New Label With {
+            .Name = "lbl" & indexname,
+            .AutoSize = True,
+            .Text = hinweis,
+            .Location = New Point(11, ylbl)
+        }
 
         pnlIndex.Controls.Add(lbl)
-        lbl.Location = New Point(11, ylbl)
     End Sub
 
     Function Indexwert_checkValueDB(indexname As String, wert As String)
@@ -1557,7 +1558,7 @@ Public Class frmIndex
         End Try
     End Sub
     '    <STAThread()> _
-    Function Check_HistoryValues(Indexname As String, Dokart As String)
+    Function Check_HistoryValues(Indexname As String, Dokart As String) As String
         Try
             Dim result = Nothing
             Dim DT As DataTable = MyDataset.TBTEMP_INDEXRESULTS
@@ -1573,6 +1574,7 @@ Public Class frmIndex
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Check_HistoryValues:")
+            Return Nothing
         End Try
     End Function
 
@@ -2623,6 +2625,8 @@ Public Class frmIndex
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        ClassDatabase.Execute_non_Query($"DELETE FROM TBGI_FILES_USER WHERE GUID = {CURRENT_WORKFILE_GUID}", True)
+
         CancelAttempts = 2
         Close()
     End Sub