Monorepo/GUIs.ZooFlow/frmFlowForm.vb

Option Explicit On

Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.XtraSplashScreen
Imports DigitalData.GUIs.ClipboardWatcher
Imports DigitalData.GUIs.ZooFlow.ClassConstants
Imports DigitalData.GUIs.ZooFlow.ClipboardWatcher
Imports DigitalData.Modules
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language.Utils
Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.GUIs.Common.Base
Imports DigitalData.GUIs.Common

Public Class frmFlowForm
#Region "Sidebar DllImport"
    <DllImport("SHELL32", CallingConvention:=CallingConvention.StdCall)>
    Private Shared Function SHAppBarMessage(ByVal dwMessage As Integer, ByRef BarrData As AppDeskBar) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto)>
    Public Shared Function RegisterWindowMessage(ByVal msg As String) As Integer
    End Function
#End Region
#Region "Sidebar Variablen"
    Private AppDeskData As AppDeskBar
    Private fBarRegistered As Boolean = False
    Private Property uCallBack As Integer

    Private Structure RECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure
    Private Structure AppDeskBar
        Public cbSize As Integer
        Public hWnd As IntPtr
        Public uCallbackMessage As Integer
        Public uEdge As Integer
        Public rc As RECT
        Public lParam As IntPtr
    End Structure
    Private Enum ABMsg
        ABM_NEW = 0
        ABM_REMOVE = 1
        ABM_QUERYPOS = 2
        ABM_SETPOS = 3
        ABM_GETSTATE = 4
        ABM_GETTASKBARPOS = 5
        ABM_ACTIVATE = 6
        ABM_GETAUTOHIDEBAR = 7
        ABM_SETAUTOHIDEBAR = 8
        ABM_WINDOWPOSCHANGED = 9
        ABM_SETSTATE = 10
    End Enum
    Public Enum ABEdge
        ABE_LEFT = 0
        ABE_TOP
        ABE_RIGHT
        ABE_BOTTOM
    End Enum
    Private Enum ABNotify
        ABN_STATECHANGE = 0
        ABN_POSCHANGED
        ABN_FULLSCREENAPP
        ABN_WINDOWARRANGE
    End Enum
#End Region
#Region "Sidebar Enum Properties Register"
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = uCallBack Then
            Select Case m.WParam.ToInt32()
                Case CInt(ABNotify.ABN_POSCHANGED)
                    ABSetPos(ABEdge.ABE_RIGHT)
            End Select
        End If
        MyBase.WndProc(m)
    End Sub
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style And Not &HC00000 ' WS_CAPTION
            cp.Style = cp.Style And Not &H800000 ' WS_BORDER
            cp.ExStyle = &H80 Or &H8 ' WS_EX_TOOLWINDOW | WS_EX_TOPMOST
            Return cp
        End Get
    End Property

    Private Sub ABSetPos(ByVal dockEdge As ABEdge)
        Dim abd As New AppDeskBar()
        abd.cbSize = Marshal.SizeOf(abd)
        abd.hWnd = Me.Handle
        abd.uEdge = CInt(dockEdge)
        If abd.uEdge = CInt(ABEdge.ABE_LEFT) Or abd.uEdge = CInt(ABEdge.ABE_RIGHT) Then
            abd.rc.top = 0
            abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height
            If abd.uEdge = CInt(ABEdge.ABE_LEFT) Then
                abd.rc.left = 0
                abd.rc.right = Size.Width
            Else
                abd.rc.right = SystemInformation.PrimaryMonitorSize.Width
                abd.rc.left = abd.rc.right - Size.Width
            End If
        Else
            abd.rc.left = 0
            abd.rc.right = SystemInformation.PrimaryMonitorSize.Width
            If abd.uEdge = CInt(ABEdge.ABE_TOP) Then
                abd.rc.top = 0
                abd.rc.bottom = Size.Height
            Else
                abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height
                abd.rc.top = abd.rc.bottom - Size.Height
            End If
        End If
        ' Query the system for an approved size and position.
        SHAppBarMessage(CInt(ABMsg.ABM_QUERYPOS), abd)
        ' Adjust the rectangle, depending on the edge to which the
        ' appbar is anchored.
        Select Case abd.uEdge
            Case CInt(ABEdge.ABE_LEFT)
                abd.rc.right = abd.rc.left + Size.Width
            Case CInt(ABEdge.ABE_RIGHT)
                abd.rc.left = abd.rc.right - Size.Width
            Case CInt(ABEdge.ABE_TOP)
                abd.rc.bottom = abd.rc.top + Size.Height
            Case CInt(ABEdge.ABE_BOTTOM)
                abd.rc.top = abd.rc.bottom - Size.Height
        End Select
        ' Pass the final bounding rectangle to the system.
        SHAppBarMessage(CInt(ABMsg.ABM_SETPOS), abd)
        ' Move and size the appbar so that it conforms to the
        ' bounding rectangle passed to the system.

        Me.Location = New Point(abd.rc.left, abd.rc.top)
        Dim PSBH = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        Dim TaskBarHeight = PSBH - System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height
        Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - TaskBarHeight
    End Sub
#End Region

    ' Constants
    Private Const OPACITY_INITIAL = 0
    Private Const OPACITY_HIDDEN = 0.65
    Private Const OPACITY_SHOWN = 0.85

    Private DTIDB_SEARCHES As DataTable

    ' Common Helpers Classes
    Private Init As ClassInit
    Private FileEx As Filesystem.File
    Private ErrorHandler As BaseErrorHandler
    Private Logger As Logger

    ' Globix Helper Classes
    Private FileDropNew As FileDrop
    Private FileHandle As ClassFilehandle
    Private FolderWatch As ClassFolderwatcher

    ' ClipboardWatcher Helper Classes
    Private ClassWindow As Window
    Private ProfileFilter As ProfileFilter
    Private ProfileLoader As ClassProfileLoader
    Private _Environment As Environment

    ' Runtime Flags
    Private ApplicationLoading As Boolean = True
    Private IDBSearchActive As Boolean = False

    ' Runtime Variables
    Private ESCHitCount As Integer = 0
    Private IndexForm As frmGlobix_Index
    Private AdminForm As frmAdmin_Start

    ' Events
    Public Event ClipboardChanged As EventHandler(Of IDataObject)
    Private WithEvents HotkeyClass As Hotkey
    Private WithEvents Watcher As Watcher = Watcher.Singleton

    Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' === Show Splash Screen ===
        SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False)

        ' === Initialization ===
        Init = New ClassInit(My.LogConfig, Me)
        AddHandler Init.Completed, AddressOf Init_Completed
        Init.InitializeApplication()
        _Environment = My.Application.GetEnvironment

        ' === Register Sidebar ===
        RegisterBar(ABEdge.ABE_RIGHT)

    End Sub

    Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        UnregisterBar()
    End Sub

    Private Sub Init_Completed(sender As Object, e As EventArgs)
        Me.Cursor = Cursors.WaitCursor
        ' === Initialization Complete ===
        ApplicationLoading = False
        SplashScreenManager.CloseForm(False)

        ' === Initialize Error Handler ===
        Logger = My.LogConfig.GetLogger()
        ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)

        ' === Setup Timers ===
        AddHandler TimerRefreshData.Tick, AddressOf TimerRefreshData_Tick
        TimerRefreshData.Enabled = True

        ' === Register As Event Listener ===
        EventBus.Instance.Register(Me)

        ' === Setup Event Handlers ===
        AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
        AddHandler KeyUp, AddressOf frmFlowForm_KeyDown

        AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
        PictureBoxSearch1.Visible = False

        'Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
        'Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
        For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
                IDBSearchActive = True
                PictureBoxSearch1.Visible = True
            End If
        Next
        'If Not IsNothing(oDatatable) Then
        '    If oDatatable.Rows.Count > 0 Then
        '        IDBSearchActive = True
        '        DTIDB_SEARCHES = oDatatable
        '        PictureBoxSearch1.Visible = True
        '    End If

        'End If

        If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
            Try
                ClassWindow = New Window(My.LogConfig)
                HotkeyClass = New Hotkey(Me)

                'Add Toggle Hotkey
                HotkeyClass.AddHotKey(Keys.T, Hotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)

                ' Add Trigger Hotkey

                'TODO: Configure Hotkey
                Dim oSearchKey As String = "D"
                Dim oFunctionKey As String = "CTRL"

                Dim oConverter As New KeysConverter
                Dim oObject As Object = oConverter.ConvertFromString(oSearchKey)
                Dim oKeyCode As Keys = oObject

                Select Case oFunctionKey
                    Case "CTRL"
                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_CONTROL, HOTKEY_TRIGGER_WATCHER)
                    Case "SHIFT"
                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_SHIFT, HOTKEY_TRIGGER_WATCHER)
                    Case "ALT"
                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_ALT, HOTKEY_TRIGGER_WATCHER)
                    Case "WIN"
                        HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_WIN, HOTKEY_TRIGGER_WATCHER)
                End Select

                AddHandler HotkeyClass.HotKeyPressed, AddressOf HotkeyClass_HotKeyPressed

                ProfileLoader = New ClassProfileLoader(My.LogConfig, My.Database)
                ProfileLoader.LoadProfiles()
            Catch ex As Exception
                ShowErrorMessage(ex)
            End Try
        Else
            My.Application.ClipboardWatcher.MonitoringActive = False
            Logger.Info("Clipboard Watcher Module is not active. Hotkey Monitoring will be disabled!")
        End If

        If My.Application.ModulesActive.Contains(MODULE_GLOBAL_INDEXER) Then
            FileDropNew = New FileDrop(My.LogConfig, "ZooFlow")
            FileHandle = New ClassFilehandle(My.LogConfig)
            FolderWatch = New ClassFolderwatcher(My.LogConfig)

            Dim oFileExclusions As New ClassExclusions()
            If oFileExclusions.Load(My.Application.Globix.PATH_FileExclusions) = False Then
                If My.Application.User.Language = "de-DE" Then
                    MsgBox("Die Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!", MsgBoxStyle.Information)
                Else
                    MsgBox("File-Exclusions in Folderwatch could not be created!", MsgBoxStyle.Information)
                End If

            End If

            Init_Folderwatch()
            Start_Folderwatch()
            GlobixToolStripMenuItem.Visible = True

        End If


        If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
            Exit Sub
        End If
        Quicksearch1(False)

        Me.Cursor = Cursors.Default
    End Sub
    Sub Quicksearch1(Reload As Boolean)
        If Reload Then
            Dim oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
            My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatableIDB(oSQL)

        End If
        For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
            If oRow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
                pnlQuicksearch1.Visible = True
                lblQuicksearch1.Text = oRow.Item("CAT_STRING")
            ElseIf oRow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then
                If oRow.Item("CAT_STRING") = "Top" Then
                    pnlQuicksearch1.Dock = DockStyle.Top
                ElseIf oRow.Item("CAT_STRING") = "Bottom" Then
                    pnlQuicksearch1.Dock = DockStyle.Bottom
                End If
            End If
        Next
    End Sub
    Public Sub RegisterBar(ByVal dockEdge As ABEdge)
        AppDeskData = New AppDeskBar()
        AppDeskData.cbSize = Marshal.SizeOf(AppDeskData)
        AppDeskData.hWnd = Me.Handle
        If Not fBarRegistered Then
            uCallBack = RegisterWindowMessage("AppBarMessage")
            AppDeskData.uCallbackMessage = uCallBack
            SHAppBarMessage(CInt(ABMsg.ABM_NEW), AppDeskData) 'ToDo: Unsigned Integers not supported
            fBarRegistered = True
            ABSetPos(ABEdge.ABE_RIGHT)
        Else
            SHAppBarMessage(CInt(ABMsg.ABM_REMOVE), AppDeskData)
            fBarRegistered = False
        End If
    End Sub

    Public Sub UnregisterBar()
        If fBarRegistered Then
            fBarRegistered = False
            SHAppBarMessage(ABMsg.ABM_REMOVE, AppDeskData)
        End If
    End Sub

    Public Sub Init_Folderwatch()
        Try
            Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId
            Dim oDT = My.Database.GetDatatable("TBGI_FOLDERWATCH_USER", oSql, EDMI.API.Constants.DatabaseType.ECM, $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}")

            If oDT.Rows.Count = 0 Then
                'Throw New ApplicationException("No Default Path configured for User!")
                Logger.Warn("No Default Path configured for User. Skipping.")
                Exit Sub
            End If

            Dim oFolderWatchPath = oDT.Rows.Item(0).Item("FOLDER_PATH")
            oFolderWatchPath = NotNull(oFolderWatchPath, String.Empty).ToString

            If oFolderWatchPath = String.Empty Then
                Logger.Info("Init_Folderwatch: folderwatchPath is empty")
                My.Application.Globix.Folderwatchstarted = False
                My.UIConfig.Globix.FolderWatchStarted = False
                My.UIConfigManager.Save()

            End If

            If Not IO.Directory.Exists(oFolderWatchPath) Then
                Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
                My.Application.Globix.Folderwatchstarted = False
                My.UIConfig.Globix.FolderWatchStarted = False
                My.UIConfigManager.Save()

            End If

            My.Application.Globix.CurrentFolderWatchPath = oFolderWatchPath
            My.Application.Globix.Folderwatchstarted = True
            'FWFunction_STARTED = True
            FolderWatch.StartStop_FolderWatch()
        Catch ex As Exception
            ShowErrorMessage(ex)
        End Try

        Try
            Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & My.Application.User.UserId
            Dim oFolderwatchScanPath = My.Database.GetScalarValueECM(oSql)

            oFolderwatchScanPath = IIf(IsDBNull(oFolderwatchScanPath), "", oFolderwatchScanPath)

            If oFolderwatchScanPath = String.Empty Then
                Logger.Info("Init_Folderwatch: folderwatchScanPath is empty")
                My.UIConfig.Globix.FolderWatchStarted = False
                My.UIConfigManager.Save()
                Exit Sub
            End If

            If Not IO.Directory.Exists(oFolderwatchScanPath) Then
                Logger.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path")
                My.UIConfig.Globix.FolderWatchStarted = False
                My.UIConfigManager.Save()
                Exit Sub
            End If

            My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oFolderwatchScanPath


            'FWFunction_STARTED = True
            FolderWatch.StartStop_FolderWatchSCAN()
        Catch ex As Exception
            ShowErrorMessage(ex)
        End Try

    End Sub

    Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs)
        'TODO: Refresh Data
    End Sub

    Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
        If e.KeyCode = Keys.Escape Then
            If ESCHitCount > 0 Then
                ExitZooflow()
            Else
                ESCHitCount += 1
            End If
        ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then
            If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then
                MsgBox("Search")
            End If
        End If
    End Sub

    Sub ExitZooflow()
        Dim oResult As DialogResult = MessageBox.Show("Are you sure you want to close ZooFlow?", "Exit Zooflow", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If oResult = DialogResult.Yes Then
            Close()
        Else
            ESCHitCount = 0
        End If
    End Sub

    Public Sub OnEvent(Params As Object)
        Logger.Debug("OnEvent called!")
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
        frmSearchNeu.Show()

        'Open_FlowSearch()
    End Sub
    Sub Open_FlowSearch()
        Cursor = Cursors.WaitCursor
        If TheFormIsAlreadyLoaded("frmFlowSearch1") Then
            Cursor = Cursors.Default
            Exit Sub
        End If
        'Dim oSQLFlowSearch As String = ""
        'For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
        '    If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
        '        oSQLFlowSearch = oRow.Item("SQL_COMMAND")

        '    End If
        'Next
        'If oSQLFlowSearch <> String.Empty Then
        'oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
        'oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageId)
        'oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)

        'End If
        Dim oForm As New frmFlowSearch1()
        oForm.Show()
        oForm.BringToFront()

        Cursor = Cursors.Default
    End Sub

    Private Sub PictureBoxSearch1_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch1.Click
        Open_FlowSearch()
    End Sub

    Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click
        ExitZooflow()
    End Sub

    Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
        Me.Cursor = Cursors.WaitCursor
        AdminForm = New frmAdmin_Start()

        frmAdmin_Start.Show()
        If TimerCheckActiveForms.Enabled = False Then
            TimerCheckActiveForms.Enabled = True
        End If

        Me.Cursor = Cursors.Default
    End Sub

    Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
        PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3

        e.Effect = DragDropEffects.Copy
        Drag_Enter(sender, e)
    End Sub

    Private Async Sub frmFlowForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
        Await DragDropForm(e)
    End Sub

    Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
        PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW1
    End Sub

    Private Sub PictureBoxAbo_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseEnter
        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo_MouseOver
    End Sub

    Private Sub PictureBoxAbo_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseLeave
        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo
    End Sub

    Private Sub PictureBoxAbo_Click(sender As Object, e As EventArgs) Handles PictureBoxAbo.Click
        Cursor = Cursors.WaitCursor
        If TheFormIsAlreadyLoaded("frmPreSearch") Then
            Cursor = Cursors.Default
            Exit Sub
        End If
        Dim oForm2 As New frmSearchPredefined()
        oForm2.Show()
        Cursor = Cursors.Default
    End Sub
    Private Function TheFormIsAlreadyLoaded(ByVal pFormName As String) As Boolean

        TheFormIsAlreadyLoaded = False

        For Each frm As Form In Application.OpenForms
            If frm.Name.Equals(pFormName) Then
                TheFormIsAlreadyLoaded = True
                Exit Function
            End If
        Next

    End Function
    Private Function FormLoaded_Visible() As Boolean
        For Each frm As Form In Application.OpenForms
            If frm.Name.Equals("frmSearchStart") Or frm.Name.Equals("frmGlobix_Index") Or frm.Name.Equals("frmAdmin_Start") Then
                Return False
            End If
        Next

        Return True
    End Function

    Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
        frmConfigDatabase.ShowDialog()
    End Sub

    Private Sub NotifyIcon_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon.DoubleClick
        If Visible = False Then
            Visible = True
        Else
            Visible = False
        End If
    End Sub

    Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBoxDragDrop.DragEnter
        Drag_Enter(sender, e)
    End Sub

    Sub Drag_Enter(sender As Object, e As DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All

        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'handle a message dragged from Outlook
            e.Effect = DragDropEffects.Copy

        ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
            e.Effect = DragDropEffects.Copy

        Else
            'otherwise, do not handle
            e.Effect = DragDropEffects.None

        End If
    End Sub
    Async Function DragDropForm(e As DragEventArgs) As Threading.Tasks.Task
        If Not My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then
            Exit Function
        End If
        If TheFormIsAlreadyLoaded("frmIndexFileList") Then
            Cursor = Cursors.Default
            MsgBox("Please index the active file first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
            Exit Function
        End If

        'Erstmal alles löschen
        My.Database.ExecuteNonQueryECM("DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '" & My.Application.User.UserName & "'")

        Dim oDroppedFiles = FileDropNew.GetFiles(e)
        If oDroppedFiles.Count > 0 Then
            Await Globix_Check_Dropped_Files(oDroppedFiles)
        End If

        'If FileDrop.Drop_File(e) = True Then
        '    Me.Cursor = Cursors.WaitCursor
        '    Await Globix_Check_Dropped_Files()
        'End If
    End Function

    Private Async Sub PictureBox1_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBoxDragDrop.DragDrop
        Await DragDropForm(e)
    End Sub

    'Private Async Sub TimerCheckDroppedFiles_Tick(sender As Object, e As EventArgs)
    '    If Not My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then
    '        Exit Sub
    '    End If

    '    Dim oDroppedFiles = FileDropNew.GetFiles(e)
    '    If oDroppedFiles.Count > 0 Then
    '        Await Globix_Check_Dropped_Files()
    '    End If

    '    'TimerCheckDroppedFiles.Stop()
    '    Await Globix_Check_Dropped_Files()
    '    Me.Cursor = Cursors.Default
    'End Sub
    Private Async Function Globix_Check_Dropped_Files(pDroppedFiles As List(Of FileDrop.DroppedFile)) As Threading.Tasks.Task
        Try
            Await My.Database.ExecuteNonQueryECMAsync($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '{My.Application.User.UserName}'")

            For Each oDroppedFile In pDroppedFiles
                Logger.Info("Checking Dropped File: [{0}]", oDroppedFile.FilePath)
                Dim oDropType = oDroppedFile.DropType
                Dim oFileName = oDroppedFile.FilePath

                If FileHandle.CheckDuplicateFiles(oFileName, "Manuelle Ablage") Then
                    FileHandle.Decide_FileHandle(oFileName, oDropType)
                End If
            Next

            Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & My.Application.User.UserName & "'"
            My.Application.Globix.DTACTUAL_FILES = Nothing
            My.Application.Globix.DTACTUAL_FILES = Await My.Database.GetDatatableECMAsync(sql)
            My.Application.Globix.ABORT_INDEXING = False

            Dim oOnlyFilesFromFilesystem = True
            For Each oRow As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows
                If oRow.Item("HANDLE_TYPE").ToString <> "|DROPFROMFSYSTEM|" Then
                    oOnlyFilesFromFilesystem = False
                    Exit For
                End If
            Next

            If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then
                frmGlobix_IndexFileList.ShowDialog()
                My.Application.Globix.DTACTUAL_FILES = Nothing
                My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql)
            End If

            For Each oRow As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows
                Dim oFilePath As String = oRow.Item("FILENAME2WORK").ToString
                Dim oFileId As Integer = oRow.Item("GUID")

                My.Application.Globix.CurrentWorkfile = New Globix.Models.WorkFile With {
                    .Id = oFileId,
                    .FilePath = oFilePath
                }

                Logger.Info(" CURRENT_WORKFILE: {0}", My.Application.Globix.CurrentWorkfile)
                If IO.File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) = True And
                    My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
                    Globix_Open_IndexDialog()
                    PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW1
                End If
            Next
        Catch ex As Exception
            ShowErrorMessage(ex)
        Finally
            CleanTempFiles()
            Show()
        End Try
    End Function

    Private Sub CleanTempFiles()
        Dim oTempFiles = My.Application.Globix.TEMP_FILES
        For Each oFile In oTempFiles
            Try
                IO.File.Delete(oFile)
                Logger.Debug("Temp file [{0}] was deleted.", oFile)
            Catch ex As Exception
                Logger.Warn("Temp file [{0}] could not be deleted", oFile)
                Logger.Error(ex)
            End Try
        Next
        My.Application.Globix.TEMP_FILES.Clear()

        FileHandle.ClearTempFiles()
        FileDropNew.RemoveTempDirectory()
    End Sub

    Sub Globix_Open_IndexDialog()
        Try
            IndexForm = New frmGlobix_Index(My.LogConfig)
            NotifyIconReset()
            AddHandler IndexForm.FormClosed, AddressOf GlobixClosed
            IndexForm.ShowDialog()
            Cursor = Cursors.Default
        Catch ex As Exception
            ShowErrorMessage(ex)
        End Try
    End Sub
    Sub NotifyIconReset()
        NI_TYPE = "INFO"
        NI_MESSAGE = String.Empty
    End Sub
    Sub GlobixClosed()
        Try
            If NI_MESSAGE = String.Empty Then
                Exit Sub
            End If

            Dim oNIType = 1
            Select Case NI_TYPE
                Case "INFO"
                    oNIType = 1
                Case "ERROR"
                    oNIType = 3
            End Select
            NotifyIcon.ShowBalloonTip(30000, NI_TITLE, NI_MESSAGE, oNIType)
        Catch ex As Exception
            ShowErrorMessage(ex)
        End Try
    End Sub
    Sub Start_Folderwatch()
        If My.Application.Globix.CurrentFolderWatchPath = String.Empty Then
            My.Application.Globix.Folderwatchstarted = False
        End If

        If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = String.Empty Then
            My.UIConfigManager.Config.Globix.FolderWatchScanStarted = False
            My.UIConfigManager.Save()
        End If

        If My.Application.Globix.CurrentFolderWatchPath <> "" Or My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
            Try
                If My.UIConfigManager.Config.Globix.FolderWatchScanStarted = True Then
                    Logger.Info("FWSCAN started - Checking file:" & My.Application.Globix.CURRENT_SCAN_FOLDERWATCH)
                    Dim fileEntries As String() = Directory.GetFiles(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH)
                    ' Process the list of files found in the directory.
                    Dim fileName As String
                    For Each fileName In fileEntries
                        Logger.Info("Scanfolder after startup: Checking file:" & fileName)
                        For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows
                            Dim content As String = row.Item(0).ToString.ToLower
                            If fileName.ToLower.Contains(content) Then
                                Exit Sub
                            End If
                        Next
                        Dim handleType As String
                        If fileName.ToLower.EndsWith(".msg") Then
                            handleType = "|FW_OUTLOOK_MESSAGE|"
                        Else
                            handleType = "|FW_SIMPLEINDEXER|"
                        End If
                        'Die Datei übergeben
                        Logger.Info(" Adding file from Scanfolder after startup:" & fileName)
                        If FileHandle.CheckDuplicateFiles(fileName, "FolderWatch/Scan") Then
                            FileHandle.Decide_FileHandle(fileName, handleType)
                        Else
                            Logger.Info("Scanfolder Startup: File already exists:" & fileName)
                        End If
                    Next fileName

                Else
                    Logger.Info("FWSCAN not started")
                End If
            Catch ex As Exception
                ShowErrorMessage(ex)
            End Try

            Try
                If My.Application.Globix.Folderwatchstarted = True Then
                    Logger.Info("Folderwatchstarted - Checking file:" & My.Application.Globix.CurrentFolderWatchPath)
                    Dim fileEntries As String() = Directory.GetFiles(My.Application.Globix.CurrentFolderWatchPath)
                    ' Process the list of files found in the directory.
                    Dim fileName As String
                    For Each fileName In fileEntries
                        Logger.Info("Folderwach after startup: Checking file:" & fileName)
                        For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows
                            Dim content As String = row.Item(0).ToString.ToLower
                            If fileName.ToLower.Contains(content) Then
                                Exit Sub
                            End If
                        Next
                        Dim handleType As String
                        If fileName.ToLower.EndsWith(".msg") Then
                            handleType = "|FW_OUTLOOK_MESSAGE|"
                        Else
                            handleType = "|FW_SIMPLEINDEXER|"
                        End If
                        'Die Datei übergeben
                        Logger.Info("Adding file from Folderwatch after startup:" & fileName)
                        If FileHandle.CheckDuplicateFiles(fileName, "FolderWatch/Scan") Then
                            FileHandle.Decide_FileHandle(fileName, handleType)
                        Else
                            Logger.Info("Folderwatch Startup: File already exists:" & fileName)
                        End If
                    Next fileName

                Else
                    Logger.Info("Folderwatch not started")
                End If
            Catch ex As Exception
                ShowErrorMessage(ex)
            End Try

            If TimerFolderwatch.Enabled = False Then
                TimerFolderwatch.Start()
            End If
        End If

    End Sub



    Private Sub frmFlowForm_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd
        My.UIConfig.FlowForm.Location = Location
        My.UIConfigManager.Save()
    End Sub

    Private Sub TimerFolderwatch_Tick_1(sender As Object, e As EventArgs) Handles TimerFolderwatch.Tick

        Try
            ' JenneJ, 11.02.2019:
            ' Keine Folderwatch Dateien verarbeiten, wenn gerade Indexiert wird, 
            ' dadurch würden die Globalen Variablen überschrieben
            ' und in Folge die falschen Dateien Indexiert!
            If My.Application.Globix.INDEXING_ACTIVE Or My.Application.Globix.MULTIINDEXING_ACTIVE Then
                Exit Sub
            End If

            If My.Application.Globix.Folderwatchstarted = True Or My.UIConfig.Globix.FolderWatchScanStarted = True Then
                'Prüfen ob alle Files abgearbeitet wurden
                Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND USER@WORK = '" & My.Application.User.UserName & "'"
                My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql)

                If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
                    My.Application.Globix.ABORT_INDEXING = False
                    ' Dim fil As String
                    Me.TimerFolderwatch.Stop()
                    For Each row As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows
                        Dim FILEGUID = row.Item("GUID")
                        If My.Application.Globix.ABORT_INDEXING = True Then
                            Exit For
                        End If
                        Dim FileForWork As String = row.Item(1).ToString
                        Logger.Info(" In Timer Folderwatch - File: " & FileForWork)

                        Dim fileInUse As Boolean = FileEx.TestFileIsLocked(FileForWork)
                        'Dim fileInUse As Boolean = FileHandle.IsFileInUse(FileForWork)
                        Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
                        If fileInUse = False Then
                            If fileexists = True Then
                                My.Application.Globix.CurrentWorkfile = New Globix.Models.WorkFile With {
                                    .Id = DirectCast(row.Item("GUID"), Integer),
                                    .FilePath = FileForWork
                                }

                                Globix_Open_IndexDialog()
                            Else
                                Logger.Info(" File not existing - Row will be deleted!")
                                Dim oDel = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
                                My.Database.ExecuteNonQueryECM(oDel)
                            End If
                        Else
                            Logger.Info(" file '" & row.Item(1).ToString & "' could not be opened exclusively - fileInUse!")
                        End If

                    Next
                    Me.TimerFolderwatch.Start()
                End If
                'tslblFW.Visible = True
            Else
                'tslblFW.Visible = False
            End If
        Catch ex As Exception
            If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then

            Else
                MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End If

        End Try

    End Sub

    Private Sub TsiGlobixConfig_Click(sender As Object, e As EventArgs) Handles TsiGlobixConfig.Click
        frmGlobixBasicConfig.ShowDialog()
    End Sub

    Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject)
        Dim ClipboardContents As String = Clipboard.GetText().Trim()
        Dim oState = My.Application.ClipboardWatcher

        oState.CurrentClipboardContents = ClipboardContents

        If oState.MonitoringActive = False Then
            Dim oMessage As String = "Clipboard Watcher is not active!"
            Logger.Warn(oMessage)

            Exit Sub
        End If

        If oState.UserProfiles Is Nothing Then
            Dim oMessage As String = "User Profiles are empty!"
            Logger.Warn(oMessage)

            Exit Sub
        End If

        If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
            Dim oMessage As String = "Profile Processes are empty!"
            Logger.Warn(oMessage)

            Exit Sub
        End If

        If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
            Dim oMessage As String = "Profile Windows are empty!"
            Logger.Warn(oMessage)

            Exit Sub
        End If

        If oState.ProfileControls Is Nothing OrElse oState.ProfileControls.Rows.Count = 0 Then
            Dim oMessage As String = "Profile Processes are empty!"
            Logger.Warn(oMessage)

            Exit Sub
        End If

        Dim oWindowInfo = ClassWindow.GetWindowInfo()

        Try
            ' Tree View zurücksetzen
            oState.MatchTreeView.Nodes.Clear()

            ProfileFilter = New ProfileFilter(My.LogConfig,
                oState.UserProfiles, oState.ProfileProcesses, oState.ProfileWindows, oState.ProfileControls, oState.MatchTreeView)
        Catch ex As Exception
            Logger.Error(ex)

        End Try

        Try
            Dim oProfiles = ProfileFilter.Profiles
            Dim oEnvironment = ClassEnvironment.GetEnvironment()

            ' Filter by Clipboard Contents
            oProfiles = ProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByClipboardRegex")

            ' Filter by Process Name
            oProfiles = ProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByProcess")

            ' Filter by Window Title
            oProfiles = ProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterWindowsByWindowTitleRegex")

            ' Filter by Focused Control
            oProfiles = ProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl")
            oState.CurrentMatchingProfiles = oProfiles.ToList()

            ' Filter by Search Results
            oProfiles = ProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults")

            ' Clean up Profiles
            oProfiles = ProfileFilter.ClearNotMatchedProfiles(oProfiles)
            oProfiles = ProfileFilter.ClearDuplicateProfiles(oProfiles)
            oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "CleanUp")

            oState.CurrentProfilesWithResults = oProfiles.ToList()
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub

    Private Sub HotkeyClass_HotKeyPressed(HotKeyID As String)
        Dim oState = My.Application.ClipboardWatcher

        Select Case HotKeyID
            Case HOTKEY_TRIGGER_WATCHER
                'Animator.Highlight(Cursor.Position)

                If oState.CurrentClipboardContents = String.Empty Then
                    Logger.Info("Current Clipboard Contents is empty. Exiting.")
                    Exit Sub
                End If

                If oState.MonitoringActive = False Then
                    Logger.Info("Monitoring is inactive. Exiting.")
                    Exit Sub
                End If

                If oState.UserProfiles.Rows.Count = 0 Then
                    NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden keine Profile für Sie gefunden.", ToolTipIcon.Warning)

                ElseIf oState.CurrentMatchingProfiles.Count = 0 Then
                    NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden keine passenden Profile gefunden.", ToolTipIcon.Warning)

                ElseIf oState.CurrentProfilesWithResults.Count = 0 Then
                    NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden weder Dokumente noch Daten gefunden!", ToolTipIcon.Warning)

                Else
                    Dim oProfiles = oState.CurrentProfilesWithResults
                    Dim oEnvironment = My.Application.GetEnvironment()
                    Dim oParams As New DigitalData.Modules.ZooFlow.ClipboardWatcherParams With {
                        .ClipboardContents = oState.CurrentClipboardContents,
                        .MatchingProfiles = oProfiles,
                        .MatchTreeView = oState.MatchTreeView,
                        .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow
                    }

                    Dim oForm As New frmMatch(My.LogConfig, oEnvironment, oParams)
                    oForm.Show()

                End If

            Case HOTKEY_TOGGLE_WATCHER
                If oState.MonitoringActive = True Then
                    NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)

                Else
                    NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Clipboard-Watcher wurde aktiviert!", ToolTipIcon.Info)

                End If

                oState.MonitoringActive = Not oState.MonitoringActive

        End Select
    End Sub

    Private Sub PictureBoxPM1_Click(sender As Object, e As EventArgs) Handles PictureBoxPM1.Click
        ToastNotificationsManager1.ShowNotification(ToastNotificationsManager1.Notifications(1))
    End Sub

    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
        frmtest.Show()

    End Sub



    Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
        frmConfigBasic.ShowDialog()
        Quicksearch1(True)
    End Sub



    Private Sub ShowErrorMessage(pEx As Exception)
        Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
        ErrorHandler.ShowErrorMessage(pEx, oCallingClass)
    End Sub

    Private Function GetResultWindowString(SearchContent As String) As String
        If SearchContent <> String.Empty Then
            If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then

                Return $"Suche Nach '{SearchContent}'"
            Else
                Return $"Search For '{SearchContent}'"
            End If
        End If


    End Function
    Sub RunQuickSearch1()
        Try
            Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{TextEdit1.Text}',''"

            Dim oParams = New DocumentResultList.Params() With {
           .WindowGuid = "QuickFlowSearch1",
           .WindowTitle = GetResultWindowString(TextEdit1.Text),
           .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
           .ProfileGuid = 354521
       }


            If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
                Dim oDTDocResult = My.DatabaseIDB.GetDatatable(DocResultBaseSearch)
                If oDTDocResult.Rows.Count > 0 Then
                    Logger.Debug($"Quicksearch1 got {oDTDocResult.Rows.Count} results")
                    oParams.Results.Add(New DocumentResultList.DocumentResult() With {
                              .Title = GetResultWindowString(TextEdit1.Text),
                                .Datatable = oDTDocResult})
                    Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
                    'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
                    'AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh

                    'OpenForms.Add(oForm)
                    oForm.Show()
                Else
                    Dim oMessage As String
                    If My.Application.User.Language = "de-DE" Then
                        oMessage = "Kein Ergebnis"
                    Else
                        oMessage = "No results"
                    End If
                    NotifyIcon.ShowBalloonTip(20000, $"Info", oMessage, ToolTipIcon.Info)
                End If
            End If

        Catch ex As Exception
            Logger.Error(ex)
            MsgBox("Unhandled exception in RunQuickSearch1: " & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
        If e.KeyCode = Keys.Return Then
            CheckRunSearch1()
        End If
    End Sub


    Sub CheckRunSearch1()
        If TextEdit1.Text <> String.Empty Then
            If TextEdit1.Text = "porn" Then
                NotifyIcon.ShowBalloonTip(20000, $"Info", "Think about Your search term an search again..", ToolTipIcon.Info)
                Exit Sub
            End If
            RunQuickSearch1()
        End If
    End Sub
    Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
        If TextEdit1.Text = String.Empty Then
            Open_FlowSearch()
            Exit Sub
        End If

        CheckRunSearch1()
    End Sub

    Private Sub frmFlowForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown

    End Sub

    Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
        frmConfigBasic.ShowDialog()
        Quicksearch1(True)
    End Sub

    Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem1.Click
        frmConfigDatabase.ShowDialog()
    End Sub

    Private Sub NeustartZooflowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeustartZooflowToolStripMenuItem.Click
        Application.Restart()
    End Sub

    Private Sub ZooflowBeendenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZooflowBeendenToolStripMenuItem1.Click
        ExitZooflow()
    End Sub

    Private Sub AppServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AppServiceToolStripMenuItem.Click
        frmServiceConfig.ShowDialog()
    End Sub
End Class