ControlContainerEditor オブジェクトを使用して WinGrid セル内に任意のコントロールを組み込む

Imports System.Windows.Forms
Imports Infragistics.Win.UltraWinEditors
Imports Infragistics.UltraGauge.Resources
Imports Infragistics.Win.UltraWinGauge

using System.Windows.Forms;
using Infragistics.Win.UltraWinEditors;
using Infragistics.UltraGauge.Resources;
using Infragistics.Win.UltraWinGauge;

#Region "Private Members"
Private gauge As UltraGauge
Private numericUpDown As NumericUpDown
Private marker As LinearGaugeBarMarker
#End Region

#region Private Members
private UltraGauge gauge;
private NumericUpDown numericUpDown;
LinearGaugeBarMarker marker;
#endregion

#Region "Constructor"
Public Sub New(ByVal gauge As UltraGauge, ByVal numericUpDown As NumericUpDown)
    Me.gauge = gauge
    Me.numericUpDown = numericUpDown
    ' Gauge コントロールをレンダリング コントロールとして設定します
    Me.RenderingControl = gauge
    '  NumericUpDown コントロールを編集コントロールとして設定します
    Me.EditingControl = numericUpDown
    ' ゲージ コントロールのマーカーへの参照を取得します。これによりその値を簡単に設定できます。
    Dim linearGauge As LinearGauge = DirectCast(gauge.Gauges(0), LinearGauge)
    Dim scale As LinearGaugeScale = DirectCast(linearGauge.Scales(0), LinearGaugeScale)
    Me.marker = DirectCast(scale.Markers(0), LinearGaugeBarMarker)
End Sub
#End Region

        #region Constructor
        public Editor(UltraGauge gauge, NumericUpDown numericUpDown)
        {
            this.gauge = gauge;
            this.numericUpDown = numericUpDown;
            // Gauge コントロールをレンダリング コントロールとして設定します
            this.RenderingControl = gauge;
            // NumericUpDown コントロールを編集コントロールとして設定します
            this.EditingControl = numericUpDown;
           // ゲージ コントロールのマーカーへの参照を取得します。これによりその値を簡単に設定できます。
            LinearGauge linearGauge = (LinearGauge)gauge.Gauges[0];
            LinearGaugeScale scale = (LinearGaugeScale)linearGauge.Scales[0];
            this.marker = (LinearGaugeBarMarker)scale.Markers[0];
        }
        #endregion

#Region "override RendererValue"
Protected Overloads Overrides Property RendererValue() As Object
    Get
        Return Me.marker.Value
    End Get
    Set(ByVal value As Object)
        Me.marker.Value = value
    End Set
End Property
#End Region

#region override RendererValue
        protected override object RendererValue
        {
            get
            {
                return this.marker.Value;
            }
            set
            {
                this.marker.Value = value;
            }
        }
        #endregion

Dim editor As New Editor(Me.ultraGauge1, Me.numericUpDown1)
e.Layout.Bands(0).Columns("UnitsInStock").Editor = editor

Editor editor = new Editor(this.ultraGauge1, this.numericUpDown1);
e.Layout.Bands[0].Columns["UnitsInStock"].Editor = editor;