Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Registrator Namespace LookupGrid 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 LookupGridViewInfoRegistrator()) End Sub End Class End Namespace