First create solution

Nuvolar.Module.Win/Editor/DXPropertyEditors/FieldPicker.vb

@@ -0,0 +1,56 @@
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Win.Editors
+Imports DevExpress.ExpressApp.Win.Core.ModelEditor
+Imports DevExpress.XtraEditors
+
+
+<PropertyEditor(GetType([String]), False)> _
+Public Class FieldPickerPropertyEditor
+    Inherits DXPropertyEditor
+    Public Sub New(type As Type, model As IModelMemberViewItem)
+        MyBase.New(type, model)
+    End Sub
+    Protected Overrides Function CreateControlCore() As Object
+        Dim control As New FieldPicker()
+        control.Properties.ClassType = Me.ObjectType
+        Return control
+    End Function
+End Class
+<PropertyEditor(GetType([String]), False)> _
+Public Class FieldPickerPropertyEditorContacts
+    Inherits DXPropertyEditor
+    Public Sub New(type As Type, model As IModelMemberViewItem)
+        MyBase.New(type, model)
+    End Sub
+    Protected Overrides Function CreateControlCore() As Object
+        Dim control As New FieldPicker()
+        control.Properties.ClassType = GetType(Contacts)
+        Return control
+    End Function
+End Class
+<PropertyEditor(GetType([String]), False)> _
+Public Class FieldPickerPropertyEditorContract
+    Inherits DXPropertyEditor
+    Public Sub New(type As Type, model As IModelMemberViewItem)
+        MyBase.New(type, model)
+    End Sub
+    Protected Overrides Function CreateControlCore() As Object
+        Dim control As New FieldPicker()
+        control.Properties.ClassType = GetType(Contracts)
+        Return control
+    End Function
+End Class
+<PropertyEditor(GetType([String]), False)> _
+Public Class FieldPickerPropertyEditorAPCShettByProducts
+    Inherits DXPropertyEditor
+    Public Sub New(type As Type, model As IModelMemberViewItem)
+        MyBase.New(type, model)
+    End Sub
+    Protected Overrides Function CreateControlCore() As Object
+        Dim control As New FieldPicker()
+        control.Properties.ClassType = GetType(APCSheetByProducts)
+        Return control
+    End Function
+End Class
+