diff --git a/Patterns/Modules/Controls.vb b/Patterns/Modules/Controls.vb
index 63b90bff..cb432797 100644
--- a/Patterns/Modules/Controls.vb
+++ b/Patterns/Modules/Controls.vb
@@ -60,13 +60,13 @@ Namespace Modules
                                     ' oReplaceValue = oLookupEdit.EditValue
                                 ' End If
 
-                            Case GetType(LookupControl3)
-                                Dim oLookupControl3 As LookupControl3 = oControl
-                                If oLookupControl3.Properties.SelectedValues.Count = 1 Then
-                                    oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
-                                Else
-                                    oReplaceValue = "0"
-                                End If
+                            ' Case GetType(LookupControl3) ' Type LookupControl3 is not defined or referenced in the project
+                                ' Dim oLookupControl3 As LookupControl3 = oControl
+                                ' If oLookupControl3.Properties.SelectedValues.Count = 1 Then
+                                    ' oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
+                                ' Else
+                                    ' oReplaceValue = "0"
+                                ' End If
 
                             Case GetType(ComboBox)
                                 oReplaceValue = oControl.Text