jj: add initial propertygrid functions

EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb

@@ -1,4 +1,6 @@
-Public Class ClassControlBuilder
+Imports EDMI_ClientSuite.ClassControlUtils
+
+Public Class ClassControlBuilder
 #Region "State"
     Private _DesignMode As Boolean
 #End Region
@@ -18,8 +20,9 @@
     End Function
 
     Public Function CreateLabel() As Label
-        Dim Metadata As New ClassControlUtils.ControlMetadata() With {
-            .Id = 4711
+        Dim Metadata As New ControlMetadata() With {
+            .Id = 4711,
+            .Type = ControlType.Label
         }
 
         Dim oLabel As New Label() With {
@@ -34,8 +37,9 @@
     End Function
 
     Public Function CreateTextbox() As TextBox
-        Dim Metadata As New ClassControlUtils.ControlMetadata() With {
-            .Id = 4711
+        Dim Metadata As New ControlMetadata() With {
+            .Id = 4711,
+            .Type = ControlType.TextBox
         }
 
         Dim oTextbox As New TextBox() With {