//Press F4 on the cell to see the calendar
FarPoint.Win.Spread.CellType.DateTimeCellType dtest = new FarPoint.Win.Spread.CellType.DateTimeCellType();
dtest.SimpleEdit = true;
FarPoint.Win.Spread.CellType.SpreadMonthCalendar calendar = new FarPoint.Win.Spread.CellType.SpreadMonthCalendar();
calendar.CancelText = "C";
calendar.OkText = "O.K.";
calendar.DateDefault = System.DateTime.Now;
dtest.SubEditor = calendar;
fpSpread1.Sheets[0].Cells[0, 0].CellType = dtest;
'Press F4 on the cell to see the calendar
Dim dtest As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dtest.SimpleEdit = True
Dim calendar As New FarPoint.Win.Spread.CellType.SpreadMonthCalendar()
calendar.CancelText = "C"
calendar.OkText = "O.K."
calendar.DateDefault = System.DateTime.Now
dtest.SubEditor = calendar
FpSpread1.Sheets(0).Cells(0, 0).CellType = dtest