Patterns: Improve control values modules, accept list of controls

Modules.Patterns/Patterns2.vb

@@ -77,6 +77,18 @@ Public Class Patterns2
         End Try
     End Function
 
+    Public Function ReplaceControlValues(pInput As String, pControls As List(Of Control)) As String
+        Try
+            Logger.Debug("Replacing Control Values")
+            Dim oModule = New Modules.Controls(LogConfig)
+            Return oModule.Replace(pInput, pControls)
+        Catch ex As Exception
+            Logger.Warn("Error occurred while replacing Control Values")
+            Logger.Error(ex)
+            Return pInput
+        End Try
+    End Function
+
     Public Function ReplaceWindreamValues(pInput As String, pWMObject As WMObject) As String
         Try
             Logger.Debug("Replacing Windream Values")