Imports Infragistics.Windows
Imports Infragistics.Windows.Controls
Imports Infragistics.Windows.Editors
Imports Infragistics.Windows.DataPresenter
Imports Infragistics.Windows.DataPresenter.Events
Private Sub Dp_FieldLayoutInitialized(ByVal sender As Object, ByVal e As FieldLayoutInitializedEventArgs)
If Object.Equals(e.FieldLayout.Key, "Customers") Then
' Set AllowHiding to prevent the field from being displayed in the field
' chooser. This effectively prevents the user from changing the visibility
' of the field.
e.FieldLayout.Fields("CustomerID").Settings.AllowHiding = AllowFieldHiding.Never
End If
End Sub