From 5d7cb4e6ee89504d874ea7036ea4189e1851d5d6 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Wed, 18 Nov 2020 16:42:48 +0100
Subject: [PATCH] ms

---
 GUIs.ZooFlow/frmFlowForm.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index 6d1396d9..5de18c90 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -9,7 +9,6 @@ Public Class frmFlowForm
     Private Const OPACITY_HIDDEN = 0.65
     Private Const OPACITY_SHOWN = 0.85
 
-    Private ActiveModules As List(Of String)
     Private Logger As Logger
     Private Init As ClassInit
     Private DTIDB_SEARCHES As DataTable
@@ -123,7 +122,7 @@ Public Class frmFlowForm
                 ESCHitCount += 1
             End If
         ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then
-            If ActiveModules.Contains(ClassConstants.MODULE_ZOOFLOW) Then
+            If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then
                 MsgBox("Search")
             End If
         End If