Switch from Textbox to DevExpress TextEdit

app/TaskFlow/ClassFormat.vb

@@ -9,6 +9,26 @@ Public Class ClassFormat
     Public Const DATE_FORMAT = "d"
     Public Const DATETIME_FORMAT = "G"
 
+    Public Shared Function GetFormatString(pFormatString As String) As String
+        Select Case pFormatString
+            Case ClassControlCreator.CONTROL_TYPE_CURRENCY
+                Return CURRENCY_FORMAT
+
+            Case ClassControlCreator.CONTROL_TYPE_DOUBLE
+                Return DECIMAL_FORMAT
+
+            Case ClassControlCreator.CONTROL_TYPE_DATE
+                Return DATE_FORMAT
+
+            Case ClassControlCreator.CONTROL_TYPE_DATETIME
+                Return DATETIME_FORMAT
+
+            Case Else
+                Return String.Empty
+
+        End Select
+    End Function
+
     Public Shared Function GetFormattedValue(pControlName As String, pValueObject As Object, pFormatString As String) As String
         Try
             If pFormatString <> String.Empty Then