Public Function New()

Dim instance As New NumericUpDownCellType()

public NumericUpDownCellType()

FarPoint.Web.Spread.Extender.NumericUpDownCellType n = new FarPoint.Web.Spread.Extender.NumericUpDownCellType();
n.Step = 1;
n.Width = 130;
n.ShowEditor = true;
n.ServiceUpPath = "WebService.asmx";
n.ServiceUpMethod = "Increment";
n.ServiceDownPath = "WebService.asmx";
n.ServiceDownMethod = "Decrement";
FpSpread1.ActiveSheetView.Cells[0, 0].CellType = n;
FpSpread1.ActiveSheetView.Cells[0, 0].Value = 1;

[WebMethod()]
    public double Increment(double current) {
        current = (current + 0.25);
        if ((current > 10)) {
            current = 10;
        }
        return current;
    }
    
    [WebMethod()]
    public double Decrement(double current) {
        current = (current - 0.25);
        if ((current < 0.25)) {
            current = 0.25;
        }
        return current;
    }

Dim n As New FarPoint.Web.Spread.Extender.NumericUpDownCellType
n.Step = 1
n.Width = 130
n.ShowEditor = True
n.ServiceUpPath = "WebService.asmx"
n.ServiceUpMethod = "Increment"
n.ServiceDownPath = "WebService.asmx"
n.ServiceDownMethod = "Decrement"
FpSpread1.ActiveSheetView.Cells(0, 0).CellType = n
FpSpread1.ActiveSheetView.Cells(0, 0).Value = 1

<WebMethod()>
Public Function Increment(ByVal current As Double) As Double
  current = current + 0.25
    If current > 10 Then
    current = 10
    End If
  Return current
 End Function
 <WebMethod()>
 Public Function Decrement(ByVal current As Double) As Double
  current = current - 0.25
    If current < 0.25 Then
    current = 0.25
    End If
  Return current
End Function