2 Commits

View File

@@ -10,7 +10,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 DTIDB_SEARCHES As DataTable
@@ -127,7 +126,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