jj: Add LookupGrid Control, Work in Progress!

LookupGrid/GridControl.vb

@@ -0,0 +1,17 @@
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraGrid.Registrator
+
+Public Class LookupGridControl
+    Inherits GridControl
+
+    Protected Overrides Function CreateDefaultView() As BaseView
+        Return CreateView("LookupGridView")
+    End Function
+    Protected Overrides Sub RegisterAvailableViewsCore(ByVal collection As InfoCollection)
+        MyBase.RegisterAvailableViewsCore(collection)
+        collection.Add(New GridViewInfoRegistrator())
+    End Sub
+End Class
+
+