Main.vb

Public Class Main

    Dim flwAll(0 To 4)

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

    Dim item As Object
    Dim cbCount As Integer
    Dim cbCheckedCount As Integer

    Dim d1 As New System.Collections.Generic.Dictionary(Of CheckBox, TextBox)
    Dim d2 As New System.Collections.Generic.Dictionary(Of CheckBox, TextBox)
    Dim d3 As New System.Collections.Generic.Dictionary(Of CheckBox, TextBox)

    Dim Ready As Integer

    Dim MsgConfirmKill As Object
    Dim MsgApp, MsgProcess, MsgString

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error GoTo ErrorHandler
        'Put cmdAbout in line with DriveTidy text
        Dim AboutLocation As New System.Drawing.Point(cmdAbout.Location.X, lblProductName.Location.Y)
        cmdAbout.Location = AboutLocation

        'Display settings to show the form correctly for all DPI settings
        Dim gfx As Graphics
        gfx = Graphics.FromHwnd(Me.Handle)

        If gfx.DpiX > 96 Then
            cmdPresetQuick.AutoSize = True
            cmdPresetAdvanced.AutoSize = True
            'Adjust Height & Width of flwOptions
            flwOptions.Height = cbTIF.Location.Y + (cbTIF.Height * 10)
            flwOptions.Width = (flwOptions.Location.X * 2) + cbTIF.Width
        End If
        gfx.Dispose()



        'Environment Variables for Version
        Environment.SetEnvironmentVariable("version", My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision)
        'Version as a value (1 decimal place)
        Environment.SetEnvironmentVariable("version_value", My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & My.Application.Info.Version.Build & My.Application.Info.Version.Revision)

        'Check for Updates
        If Start.SessionStarted = False Then
            Start.SessionStarted = True
            bgUpdateCheck.RunWorkerAsync()
        End If

        'Paths include "/" to ensure wanted files aren't deleted. 
        'Command List is also adjusted accordingly. 
        'E.g. %userprofile%temp.tmp and not %userprofile%\temp.tmp
        Environment.SetEnvironmentVariable("documents", My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders").GetValue("Personal"))
        If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
            If Not My.Computer.Registry.CurrentUser.OpenSubKey("Software\Valve\Steam") Is Nothing Then
                Environment.SetEnvironmentVariable("steam", My.Computer.Registry.CurrentUser.OpenSubKey("Software\Valve\Steam").GetValue("SteamPath"))
            End If
        End If

        'Vista & Above
        If Start.OS_Number >= 6 Then
            Environment.SetEnvironmentVariable("localappdata", Environ("userprofile") + "\AppData\Local\")
            Environment.SetEnvironmentVariable("locallowappdata", Environ("userprofile") + "\AppData\LocalLow\")
            Environment.SetEnvironmentVariable("recycle", Environ("systemdrive") + "\$Recycle.Bin")
            Environment.SetEnvironmentVariable("recent", Environ("appdata") + "\Microsoft\Windows\Recent\")
            Environment.SetEnvironmentVariable("cookies", Environ("appdata") + "\Microsoft\Windows\Cookies\")
            Environment.SetEnvironmentVariable("history", Environ("localappdata") + "\Microsoft\Windows\History\")
            Environment.SetEnvironmentVariable("tif", Environ("localappdata") + "\Microsoft\Windows\Temporary Internet Files\")
            Environment.SetEnvironmentVariable("allusersappdata", Environ("allusersprofile"))
        Else 'Use the Environment Variables for Windows XP
            Environment.SetEnvironmentVariable("localappdata", Environ("userprofile") + "\Local Settings\Application Data\")
            Environment.SetEnvironmentVariable("locallowappdata", "")
            Environment.SetEnvironmentVariable("recycle", Environ("systemdrive") + "\recycler\")
            Environment.SetEnvironmentVariable("recent", Environ("userprofile") + "\Recent\")
            Environment.SetEnvironmentVariable("cookies", Environ("userprofile") + "\Cookies\")
            Environment.SetEnvironmentVariable("history", Environ("userprofile") + "\Local Settings\History\")
            Environment.SetEnvironmentVariable("tif", Environ("userprofile") + "\Local Settings\Temporary Internet Files\")
            Environment.SetEnvironmentVariable("allusersappdata", Environ("allusersprofile") + "\Application Data\")
        End If
        On Error GoTo 0 'End of Setting Environment Permissions

        'Set FlowLayoutPanel Array values
        flwAll(0) = flwSystem.Controls
        flwAll(1) = flwInternet.Controls
        flwAll(2) = flwMore.Controls
        flwAll(3) = flwOtherApps.Controls
        flwAll(4) = flwFileExt.Controls

        'KVP Lists
        'List of Current Options here get added to the Dictionary so they can be referenced
        'CleanDefs (without File Extensions)
        d1.Add(cbRecycle, CleanDefs.txtRecycle)
        d1.Add(cbTemp, CleanDefs.txtTemp)
        d1.Add(cbRecent, CleanDefs.txtRecent)
        d1.Add(cbWindowsUpdate, CleanDefs.txtWindowsUpdate)
        d1.Add(cbErrorReports, CleanDefs.txtErrorReports)
        d1.Add(cbTIF, CleanDefs.txtTIF)
        d1.Add(cbFirefox, CleanDefs.txtFirefox)
        d1.Add(cbChrome, CleanDefs.txtChrome)
        d1.Add(cbOpera, CleanDefs.txtOpera)
        d1.Add(cbSafari, CleanDefs.txtSafari)
        d1.Add(cbFlash, CleanDefs.txtFlash)
        d1.Add(cbJava, CleanDefs.txtJava)
        d1.Add(cbMessenger, CleanDefs.txtMessenger)

        'CleanDefs2
        d2.Add(cbVistaSP1, CleanDefs2.txtVistaSP1)
        d2.Add(cbVistaSP2, CleanDefs2.txtVistaSP2)
        d2.Add(cbWin7SP1, CleanDefs2.txtWin7SP1)
        d2.Add(cbHibernate, CleanDefs2.txtHibernate)
        d2.Add(cbThumbnails, CleanDefs2.txtThumbnails)
        d2.Add(cbMSI, CleanDefs2.txtMSI)
        d2.Add(cbWinSxS, CleanDefs2.txtWinSxS)
        d2.Add(cbWinSPClean, CleanDefs2.txtWinSPClean)
        d2.Add(cbWinWebSetup, CleanDefs2.txtWinWebSetup)
        d2.Add(cbSampleMusic, CleanDefs2.txtSampleMusic)
        d2.Add(cbSamplePictures, CleanDefs2.txtSamplePictures)
        d2.Add(cbSampleVideos, CleanDefs2.txtSampleVideos)
        d2.Add(cbAbletonLive, CleanDefs2.txtAbletonLive)
        d2.Add(cbAdobeCameraRAW, CleanDefs2.txtAdobeCameraRAW)
        d2.Add(cbAdobeMedia, CleanDefs2.txtAdobeMedia)
        d2.Add(cbAdobeReader, CleanDefs2.txtAdobeReader)
        d2.Add(cbAppleInstaller, CleanDefs2.txtAppleInstaller)
        d2.Add(cbAutoDesk, CleanDefs2.txtAutoDesk)
        d2.Add(cbAVG, CleanDefs2.txtAVG)
        d2.Add(cbBattleNet, CleanDefs2.txtBattleNet)
        d2.Add(cbBigFishGames, CleanDefs2.txtBigFishGames)
        d2.Add(cbEVEcache, CleanDefs2.txtEVEcache)
        d2.Add(cbEVElogs, CleanDefs2.txtEVElogs)
        d2.Add(cbGIMP, CleanDefs2.txtGIMP)
        d2.Add(cbGoogleEarth, CleanDefs2.txtGoogleEarth)
        d2.Add(cbGoogleToolbar, CleanDefs2.txtGoogleToolbar)
        d2.Add(cbGoogleUpdater, CleanDefs2.txtGoogleUpdater)
        d2.Add(cbHPDigitalImaging, CleanDefs2.txtHPDigitalImaging)
        d2.Add(cbIMVU, CleanDefs2.txtIMVU)
        d2.Add(cbiTunes, CleanDefs2.txtiTunes)
        d2.Add(cbJagex, CleanDefs2.txtJagex)
        d2.Add(cbKaspersky, CleanDefs2.txtKaspersky)
        d2.Add(cbNokiaOvi, CleanDefs2.txtNokiaOvi)
        d2.Add(cbQuicktime, CleanDefs2.txtQuicktime)
        d2.Add(cbRealPlayer, CleanDefs2.txtRealPlayer)
        d2.Add(cbRDP, CleanDefs2.txtRDP)
        d2.Add(cbSilverlight, CleanDefs2.txtSilverlight)
        d2.Add(cbSpotify, CleanDefs2.txtSpotify)
        d2.Add(cbSteam, CleanDefs2.txtSteam)
        d2.Add(cbSymantec, CleanDefs2.txtSymantec)
        d2.Add(cbTrackmania, CleanDefs2.txtTrackmania)
        d2.Add(cbUnity, CleanDefs2.txtUnity)

        'File Extensions
        d3.Add(cbTMP, CleanDefs.txtTMP)
        d3.Add(cbLOG, CleanDefs.txtLOG)
        d3.Add(cbCHK, CleanDefs.txtCHK)
        d3.Add(cbDMP, CleanDefs.txtDMP)
        d3.Add(cb_MP, CleanDefs.txt_MP)
        d3.Add(cbERR, CleanDefs.txtERR)

        'Process Detection Rules
        pdList.Add(New ProcessDetect(cbTIF, "Internet Explorer", "iexplore"))
        pdList.Add(New ProcessDetect(cbFirefox, "Mozilla Firefox", "firefox"))
        pdList.Add(New ProcessDetect(cbChrome, "Google Chrome", "chrome"))
        pdList.Add(New ProcessDetect(cbOpera, "Opera", "opera"))
        pdList.Add(New ProcessDetect(cbSafari, "Safari", "safari"))
        pdList.Add(New ProcessDetect(cbMessenger, "Windows Live Messenger", "msnmsgr"))
        pdList.Add(New ProcessDetect(cbSteam, "Steam", "Steam"))

        'If certain files dont exist then delete their button
        Start.Definitions()
        Checkbox_Count()
        tmSelectAll.Enabled = True
        Exit Sub
ErrorHandler:
        If Err.Number = 5 Then
            MsgBox("You may be running the program from a temporary location or network drive. Try opening the file from your Desktop.", MsgBoxStyle.Exclamation, "Permission Error")
        Else
            MsgBox(Err.Description, MsgBoxStyle.Exclamation, "Error " & Err.Number)
        End If
        Me.BeginInvoke(New MethodInvoker(AddressOf Start.ForceClose))
    End Sub

    Private Sub bgUpdateCheck_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgUpdateCheck.DoWork
        About.AppUpdate()
    End Sub

    'Fix issue with FlowLayoutPanel not scrolling
    Private Sub Main_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        flwOptions.Focus()
    End Sub

    Private Sub cmdAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAbout.Click
        About.Show()
        Start.Enabled = False
    End Sub

    Private Sub cmdQuickCleanup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdQuickCleanup.Click
        FullView()
        QuickSelect()
        Uncheck_Invisible()
        Start_Cleanup()
    End Sub

    Private Sub cmdShowAllOptions_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles cmdShowAllOptions.LinkClicked
        FullView()
    End Sub

    Private Sub cmdBack_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles cmdBack.LinkClicked
        cmdQuickCleanup.Visible = True
        cmdShowAllOptions.Visible = True
        flwPresets.Visible = False
        flwOptions.Visible = False
        cmdBack.Visible = False
        cmdSelectAll.Visible = False
        cmdClean.Visible = False
    End Sub

    Public Sub FullView()
        cmdQuickCleanup.Visible = False
        cmdShowAllOptions.Visible = False
        flwPresets.Visible = True
        flwOptions.Visible = True
        cmdBack.Visible = True
        cmdSelectAll.Visible = True

        'Determines if should show "More..." label
        Dim CountMore As Integer
        For Each Me.item In flwMore.Controls
            If TypeOf item Is CheckBox Then
                If item.Visible = True Then
                    CountMore = CountMore + 1
                End If
            End If
        Next

        If CountMore = 0 Then
            lblMore.Visible = False
        End If

        'Determines if should show "Other Applications" label
        Dim CountOtherApps As Integer
        For Each Me.item In flwOtherApps.Controls
            If TypeOf item Is CheckBox Then
                If item.Visible = True Then
                    CountOtherApps = CountOtherApps + 1
                End If
            End If
        Next

        If CountOtherApps = 0 Then
            lblOtherApps.Visible = False
        End If

        cmdClean.Visible = True
    End Sub

    Private Sub cmdPresetQuick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPresetQuick.Click
        QuickSelect()
        Uncheck_Invisible()
    End Sub

    Private Sub cmdPresetAdvanced_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPresetAdvanced.Click
        QuickSelect()
        cbTMP.Checked = True
        cbLOG.Checked = True
        cbCHK.Checked = True
        cbDMP.Checked = True
        Uncheck_Invisible()
        'Scroll to bottom of FlowOptions to demonstrate the extra options selected by Advanced
        flwOptions.VerticalScroll.Value = flwOptions.VerticalScroll.Maximum
        flwOptions.ScrollControlIntoView(flwOptions)
    End Sub

    Public Sub QuickSelect()
        'Check specific Checkboxes
        For i = 0 To 1
            For Each Me.item In flwAll(i)
                If TypeOf item Is CheckBox Then
                    If item.Enabled = True Then
                        item.Checked = True
                    End If
                End If
            Next
        Next
        For Each Me.item In flwAll(3)
            If TypeOf item Is CheckBox Then
                item.Checked = True
            End If
        Next
        For Each Me.item In flwAll(2)
            If TypeOf item Is CheckBox Then
                item.Checked = False
            End If
        Next
        For Each Me.item In flwAll(4)
            If TypeOf item Is CheckBox Then
                item.Checked = False
            End If
        Next
        cbAppleInstaller.Checked = False
    End Sub

    Private Sub cmdSelectAll_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles cmdSelectAll.LinkClicked
        'If all of the checkboxes are checked they will all be unchecked, otherwise they will all be checked. 
        Checkbox_Count()
        If cbCheckedCount < cbCount Then
            For i = 0 To 4
                For Each Me.item In flwAll(i)
                    If TypeOf item Is CheckBox Then
                        If item.Enabled = True Then
                            item.Checked = True
                            Checkbox_Count()
                        End If
                    End If
                Next
            Next
        ElseIf cbCheckedCount = cbCount Then
            For i = 0 To 4
                For Each Me.item In flwAll(i)
                    If TypeOf item Is CheckBox Then
                        item.Checked = False
                        Checkbox_Count()
                    End If
                Next
            Next
        End If
        Uncheck_Invisible()
    End Sub

    Private Sub tmSelectAll_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmSelectAll.Tick
        'Text will display Select None if all are checked.
        Checkbox_Count()
        If cbCheckedCount < cbCount Then
            cmdSelectAll.Text = "Select All"
        ElseIf cbCheckedCount = cbCount Then
            cmdSelectAll.Text = "Select None"
        End If
    End Sub

    Public Sub Checkbox_Count()
        'Reset values
        cbCount = 0
        cbCheckedCount = 0
        'Make cbCount = Number of visible checkboxes
        For i = 0 To 4
            For Each Me.item In flwAll(i)
                If TypeOf item Is CheckBox Then
                    If item.Visible = True Then
                        If item.Enabled = True Then
                            cbCount = cbCount + 1
                        End If
                    End If
                    If item.Checked = True Then
                        cbCheckedCount = cbCheckedCount + 1
                    End If
                End If
            Next
        Next
    End Sub

    Public Sub Uncheck_Invisible()
        'Makes sure there that all invisible checkboxes are unchecked to help cbCheckedCount
        For i = 0 To 4
            For Each Me.item In flwAll(i)
                If TypeOf item Is CheckBox Then
                    If item.Visible = False Then
                        item.Checked = False
                    End If
                End If
            Next
        Next
    End Sub

    Public Class ProcessDetect
        'Class to store 3 elements required into one collection
        Public CheckboxRef As CheckBox
        Public AppName As String
        Public ProcessName As String

        Public Sub New(ByVal CBName As CheckBox, ByVal aName As String, ByVal pName As String)
            CheckboxRef = CBName
            AppName = aName
            ProcessName = pName
        End Sub
    End Class
    Private pdList As New List(Of ProcessDetect)

    Public Sub KillMsg()
        Dim Proc() As Process = Process.GetProcesses
        For i As Integer = 0 To Proc.GetUpperBound(0)
            If Proc(i).ProcessName = MsgProcess Then
                MsgConfirmKill = MsgBox(MsgApp & MsgString, MsgBoxStyle.YesNo)
                If MsgConfirmKill = MsgBoxResult.Yes Then
                    KillProcess(MsgProcess)
                    Ready = 1
                ElseIf MsgConfirmKill = MsgBoxResult.No Then
                    Ready = 2
                End If
                MsgProcess = "" 'Added to stop the message repeating
            End If
        Next
    End Sub

    Public Sub KillProcess(ByRef strProcessToKill As String)
        Dim Proc() As Process = Process.GetProcesses
        For i As Integer = 0 To Proc.GetUpperBound(0)
            If Proc(i).ProcessName = strProcessToKill Then
                Proc(i).Kill()
            End If
        Next
    End Sub

    Private Sub cmdClean_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClean.Click
        Start_Cleanup()
    End Sub

    Public Sub Start_Cleanup()
        Dim ieVersion As New Version(My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer").GetValue("Version"))
        'If the program fails to write a file then an error will generate and restart the program
        'On Error GoTo ErrorHandler
        'Checking to see if at least one option is checked

        'Ready Value Legend.
        '0 = Not Ready, No Options Selected
        '1 = Ready
        '2 = Not Ready, Aborted By User

        Checkbox_Count()
        If cbCheckedCount = 0 Then
            Ready = 0
        Else
            'Process Detection - checks to see if programs are running and need to be closed
            Ready = 1 'Value starts at 1 and will be changed to 2 if the No option is selected for any running processes
            MsgString = " is running and needs to be closed." & vbCrLf & "To save what you are doing close the program manually." & vbCrLf & vbCrLf & "Are you sure you want to continue?"

            'Added to make sure cmd is not running before DriveTidy.
            If Ready = 1 Then
                MsgApp = "Command Prompt"
                MsgProcess = "cmd"
                KillMsg()
            End If

            'Check for other processes which should not be running.
            For i = 0 To (pdList.Count - 1)
                If pdList(i).CheckboxRef.Checked = True Then
                    If Ready = 1 Then
                        MsgApp = pdList(i).AppName
                        MsgProcess = pdList(i).ProcessName
                        KillMsg()
                    End If
                End If
            Next

            'If a new value other than 2 has not been assigned then it will be changed to 1 to proceed.
            'Used incase the user is not prompted by Process Detection
            If Not Ready = 2 Then
                Ready = 1
            End If
        End If

        If Ready = 0 Then
            MsgBox("Select at least one option.")
        ElseIf Ready = 1 Then
            'Disabling commands for unchecked items
            For Each kvp As System.Collections.Generic.KeyValuePair(Of CheckBox, TextBox) In d1
                If Not kvp.Key.Checked Then
                    kvp.Value.Text = ""
                End If
            Next
            For Each kvp As System.Collections.Generic.KeyValuePair(Of CheckBox, TextBox) In d2
                If Not kvp.Key.Checked Then
                    kvp.Value.Text = ""
                End If
            Next
            For Each kvp As System.Collections.Generic.KeyValuePair(Of CheckBox, TextBox) In d3
                If Not kvp.Key.Checked Then
                    kvp.Value.Text = ""
                End If
            Next

            'Checks IE Version to see whether to use old defs, stops Inetcpl.cpl errors
            If cbTIF.Checked = True Then
                If ieVersion.Major <= 6 Then
                    CleanDefs.txtTIF.Text = CleanDefs.txtTIF_IE6.Text
                End If
            End If

            'Checks OS to see which Thumbnail Commands to use
            If cbThumbnails.Checked = True Then
                If Start.OS_Number = 5 Then
                    CleanDefs2.txtThumbnails.Text = CleanDefs2.txtThumbnailsXP.Text
                ElseIf Start.OS_Number = 6 Then
                    CleanDefs2.txtThumbnails.Text = CleanDefs2.txtThumbnailsVista.Text
                ElseIf Start.OS_Number > 6 Then
                    CleanDefs2.txtThumbnails.Text = CleanDefs2.txtThumbnails7.Text
                End If
            End If

            'Write check file
            My.Computer.FileSystem.CreateDirectory(Environ("appdata") & "\DriveTidy")
            FileOpen(1, Environ("appdata") & "\DriveTidy\cleanchk.txt", OpenMode.Output)
            PrintLine(1, "0")
            FileClose(1)
            'Create Batch Commands
            FileOpen(2, Environ("appdata") & "\DriveTidy\cleaner.bat", OpenMode.Output)
            PrintLine(2, CleanDefs.txtHeader.Text)
            'Add Common Options
            For Each keyvaluepair In d1
                PrintLine(2, keyvaluepair.Value.Text)
            Next
            'Marks beginning of "Other remaining caches" message
            PrintLine(2, CleanDefs2.txtQ12.Text)
            'Add Other Caches
            For Each keyvaluepair In d2
                PrintLine(2, keyvaluepair.Value.Text)
            Next
            'End of remaning caches
            PrintLine(2, CleanDefs2.txtQ13.Text)
            'Add File Extensions
            For Each keyvaluepair In d3
                PrintLine(2, keyvaluepair.Value.Text)
            Next
            'Send Finish Instruction
            PrintLine(2, CleanDefs.txtFinish.Text)
            FileClose(2)

            FileOpen(3, Environ("appdata") & "\DriveTidy\start.bat", OpenMode.Output)
            PrintLine(3, CleanDefs.txtStart1.Text)
            PrintLine(3, CleanDefs.txtStart2.Text)
            FileClose(3)

            Shell(Environ("windir") & "\system32\cmd.exe /c " & Chr(34) & Environ("appdata") & "\DriveTidy\start.bat" & Chr(34), AppWinStyle.Hide)
            'Show Cleaner Window
            Start.Load_CW()
            Me.Close()
            Exit Sub
ErrorHandler:
            CleanerErrors()

            'F numbers start the bar again.
            'If a file extension is selected then it does the
            'Advanced method with F numbers, no file extension = Q numbers
        End If
    End Sub

    Private Sub CleanerErrors()
        CleanerWindow.cmdCancel.Visible = False
        'Error 75 can happen if the Start Cleanup button is clicked too soon
        If Err.Number = 75 Then
            Me.Show()
            CleanerWindow.Close()
        Else
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error " & Err.Number)
            Me.Show()
            CleanerWindow.Close()
        End If
    End Sub

    Private Sub Main_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Ensure all forms are closed
        CleanDefs.Close()
        CleanDefs2.Close()
        'CleanerWindow is not closed as Main closes and CleanerWindow opens when "Start Cleanup" is clicked
        About.Close()
    End Sub

End Class