GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType datecell = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
fpSpread1.Sheets[0].Cells[0, 0].CellType = datecell;
datecell.DropDownCalendar.AllowSelection = GrapeCity.Win.Spread.InputMan.CellType.AllowSelection.Anyday;
datecell.DropDownCalendar.EmptyRows = GrapeCity.Win.Spread.InputMan.CellType.EmptyRows.AllAtEnd;
datecell.DropDownCalendar.FirstDayOfWeek = GrapeCity.Win.Spread.InputMan.CellType.DayOfWeek.Friday;
datecell.DropDownCalendar.FlatStyle = FlatStyle.Popup;
datecell.DropDownCalendar.HeaderStyle = new GrapeCity.Win.Spread.InputMan.CellType.Style(Color.Crimson, Color.Black);
datecell.DropDownCalendar.NavigatorOrientation = GrapeCity.Win.Spread.InputMan.CellType.NavigatorOrientation.Bottom;
datecell.DropDownCalendar.ShowNavigator = GrapeCity.Win.Spread.InputMan.CellType.CalendarNavigators.ScrollBar;
datecell.DefaultActiveField = datecell.Fields[2];
Dim datecell As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
fpSpread1.Sheets(0).Cells(0, 0).CellType = datecell
datecell.DropDownCalendar.AllowSelection = GrapeCity.Win.Spread.InputMan.CellType.AllowSelection.Anyday
datecell.DropDownCalendar.EmptyRows = GrapeCity.Win.Spread.InputMan.CellType.EmptyRows.AllAtEnd
datecell.DropDownCalendar.FirstDayOfWeek = GrapeCity.Win.Spread.InputMan.CellType.DayOfWeek.Friday
datecell.DropDownCalendar.FlatStyle = FlatStyle.Popup
datecell.DropDownCalendar.HeaderStyle = New GrapeCity.Win.Spread.InputMan.CellType.Style(Color.Crimson, Color.Black)
datecell.DropDownCalendar.NavigatorOrientation = GrapeCity.Win.Spread.InputMan.CellType.NavigatorOrientation.Bottom
datecell.DropDownCalendar.ShowNavigator = GrapeCity.Win.Spread.InputMan.CellType.CalendarNavigators.ScrollBar
datecell.DefaultActiveField = datecell.Fields(2)