//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();
dtest.SubEditor = calendar;
fpSpread1.Sheets[0].Cells[0, 0].CellType = dtest;
listBox1.Items.Add(calendar.GetValue().ToString());
'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()
dtest.SubEditor = calendar
FpSpread1.Sheets(0).Cells(0, 0).CellType = dtest
ListBox1.Items.Add(calendar.GetValue().ToString())