Public Property Value As Object

Dim instance As DropDownClosingEventArgs
Dim value As Object
 
instance.Value = value
 
value = instance.Value

public object Value {get; set;}

fpSpread1.ActiveSheet.Cells[0, 0].CellType = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
          
        private void fpSpread1_EditModeOn(object sender, EventArgs e)
        {
            if (fpSpread1.EditingControl is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)
                ((GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)fpSpread1.EditingControl).DropDownClosing += new EventHandler<GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs>(IMCellType_DropDownClosing);

        }

        private void fpSpread1_EditModeOff(object sender, EventArgs e)
        {
            if (fpSpread1.EditingControl is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)
                ((GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)fpSpread1.EditingControl).DropDownClosing -= new EventHandler<GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs>(IMCellType_DropDownClosing);
        }

        void IMCellType_DropDownClosing(object sender, GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs e)
        {
            if (e.Value != null)
            {
                listBox1.Items.Add(e.Value.ToString());
            }

FpSpread1.ActiveSheet.Cells(0, 0).CellType = New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType
 
    Private Sub FpSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff
        If TypeOf (FpSpread1.EditingControl) Is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime Then
            RemoveHandler CType(FpSpread1.EditingControl, GrapeCity.Win.Spread.InputMan.CellType.GcDateTime).DropDownClosing, AddressOf IMCellType_DropDownClosing
        End If
    End Sub

    Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn
        If TypeOf (FpSpread1.EditingControl) Is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime Then
            AddHandler CType(FpSpread1.EditingControl, GrapeCity.Win.Spread.InputMan.CellType.GcDateTime).DropDownClosing, AddressOf IMCellType_DropDownClosing
        End If
    End Sub

    Private Sub IMCellType_DropDownClosing(ByVal sender As Object, ByVal e As GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs)
        If e.Value <> Nothing Then
            ListBox1.Items.Add(e.Value.ToString())
        End If