MS_1401

app/DD-Record-Organiser/frmScanFiles.vb

@@ -1,8 +1,17 @@
 Imports System.IO
 Public Class frmScanFiles
+
     Dim DragID
     Dim MouseIsDown As Boolean = False
+    Private Shared _Instance As frmScanFiles = Nothing
 
+    Public Shared Function Instance() As frmScanFiles
+        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
+            _Instance = New frmScanFiles
+        End If
+        _Instance.BringToFront()
+        Return _Instance
+    End Function
     Private Sub frmScanFiles_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         ClassWindowLocation.SaveFormLocationSize(Me, 9999, CURRENT_SCREEN_ID, Me.Name)
     End Sub
@@ -28,6 +37,7 @@ Public Class frmScanFiles
                         If extension.Contains("pdf") Then
                             'Add the file to the ListView, with the executable path as the key to the ImageList's image
                             ListView1.Items.Add(filename, 0)
+
                         Else
                             ListView1.Items.Add(filename)
                         End If
@@ -138,7 +148,15 @@ Public Class frmScanFiles
         Catch ex As Exception
             MsgBox("Unexpected Error in Delete Scanfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-        
+
 
     End Sub
+
+    Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Me.BringToFront()
+    End Sub
+
+    Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
+        My.Settings.Save()
+    End Sub
 End Class