WIP: first pass of depending controls

Global_Indexer/frmIndexFileList.vb

@@ -1,4 +1,6 @@
-Public Class frmIndexFileList
+Imports System.ComponentModel
+
+Public Class frmIndexFileList
 
     Private Sub frmIndexFileList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
@@ -15,7 +17,7 @@
         Catch ex As Exception
             MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-       
+
     End Sub
 
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
@@ -39,7 +41,7 @@
         Catch ex As Exception
             MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-       
+
         Me.Close()
     End Sub
 
@@ -56,8 +58,7 @@
         CheckedListBoxControl1.Focus()
     End Sub
 
-    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+    Private Sub frmIndexFileList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
         ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
-        Me.Close()
     End Sub
 End Class