MS Rename taskFlow

app/TaskFlow/ClassRegexEditor.vb

@@ -0,0 +1,28 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Windows.Forms.Design
+Imports DigitalData.Modules.Language.Utils
+
+Public Class ClassRegexEditor
+    Inherits UITypeEditor
+
+    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
+        Return UITypeEditorEditStyle.Modal
+    End Function
+
+    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
+        Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
+        Dim oRegexString As String = NotNull(value, String.Empty)
+
+        If oService IsNot Nothing Then
+            Using oform As New frmRegexEditor()
+                oform.RegexString = oRegexString
+                If oService.ShowDialog(oform) = DialogResult.OK Then
+                    value = oform.RegexString
+                End If
+            End Using
+        End If
+
+        Return value
+    End Function
+End Class